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ABSTRACT 

Piet staeis € LwO player, microcomputer controlled, 
tactical motion analyzer (TMA) of unit movements. TMA is 
designed to be used in either a manual or computer driven 
wargame. Written in the computer language Pascal, implemen- 
Peon 2S designed for the APPLE II computer. The program is 
Peaceined on two, 5 inch floppy diskettes. Specific unit 
characteristics are entered into the database by the users. 
Users may then analyze unit movements using time-step simulation. 
Data transfer between computers is done by the users physically 
exchanging diskettes. The game may be replayed or saved 
and continued at any time. The program logic and data mani- 
Bueetion are discussed in detail within the text of the 


thesis. 
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I. INTRODUCTION 


ife purpese Of this thesis is tO provide a user friendly, 
feo player, microcomputer controlled, tactical motion analyzer 
(TMA) of unit movements. 

Since their advent, computers have been used by the 
military and civilian contractors alixe in an attempt to 
Simulate war environments. This was first done by the 
vacuum-tube computers to solve firing solutions for anti- 
mercratft guns, and later by high speed, mainframe computers 
to simulate complete battles and even war scenarios. Only 
recently has the technology been available to do similar 
Mepeications on microcomputers. Specifically, memory chip 
density advances have to be the most significant contribution 
mae unis field. 

The hardware to do large scale wargaming has been 
available for several years, but it is only now that software 
development is approaching the sophistication level so that 
Men-compuser enthusiasts can sit down at a terminal and 


successfully interact with a computer wargame. It is with 


i 


Meee 20 mind that this thesis was written. <A primary goal 
of TMA is to design human factors and ease of use into a 
Meme as 1% iS written. This subject is discussed in depth 
miecnaptcer lil. 

Although TMA is a complete program, there are many 
Miiexplored areas that could enhance it. Chapter VIII lists 
Some Suggestions for future expansion. 
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In order to use the TMA program, the following equipment 
is required: the TMA diskettes (two for each player), two 
Apple Ii computers, two disk drives and a monitor for each 
machine. 

Prospective users of this program may include anyone 
interested in observing relative unit motion while interacting 
With a microcomputer. Since this program is an interactive, 
two person game, these individuals will be able to test 
strategies for maneuvering their units. Through playing the 
Same and becoming familiar with some surface vessel tactics, 
it is hoped that this program will be of some educational 


Memetit to U.S. Navy line officers. 


Sie 





II. GOAL OF THE TMA PROGRAM 


A. WARGAMES IN GENERAL 

The author has had some limited experience with U.S. 
Navy funded, commercially produced, interactive computer 
wargames. This experience is restricted to the Warfare 
Seyi ronment Simulator (WHS). WES is a real-time man- 
interface discrete time step simulation for analytical 
femecaming applications in support of a broad range of 
research and development objectives. WES was produced by 
System Development Corporation (SDC) located in San Diego, 
California. WES appears to do what it's suppose to do, 
Mowever, it also has some very difficult characteristics. 
Seema ticaliy, it is difficult to use. A variety of special 
commands and code words must be learned before playing the 
game. These are many in number and nonstandard compared to 
military nomenclature. In many cases numerous man-hours 
must be spent in becoming familiar with these terms which 
are most often germane only to the present system. 

Many computer wargames are designed for implementation 
Pemarge, fast and expensive mainframe computers. This 
mimeeecescription implies a limitation for its users. Due to 
the high initial costs and maintenance expenses, general 
Peeeeeavailapility is less than optimal. Additionally, 
software "experts" must be on hand to answer questions and 
help train system users. This makes the wargame expensive 
eo run and maintain. 
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Another problem that is not restricted to military 
Wargames, but to sophisticated software in general is lack 
Seecood documentation! Granted that software engineers who 
develop, design, write and test programs are gifted individuals, 
iememaollity to write user instructions for the layman is 
suspect. After spending months and sometimes years developing 
software packages it is understandable that these same people 
may lose perspective. There are two extremes to the documen- 
tation dilemma; too technical or too general. It seems as 
iz the too technical examrles were written by the software 
ma@edmeers While the authors of the too general documentation 
Mmever really understood what the program was supposed to do. 

Price notwithstanding, ease of use or user friendliness 
Mee De the major factor influencing acceptance of micro- 
Semouters and computer generated software in the future. 
Several articles have appeared in recent magazine issues of 
eee iket. 1] and PERSONAL COMPUTING {Ref. 2] dedicated to 
the subject of human factors design engineering in hardware 
and software systems. Basically they both say that as the 
Peneral public begins to accept microcomvouters into their 
Gaily routines, the transition to a computerized society 
Will be made smoother by the software designers. They must 
Meogen their programs with the general public in mind. 
Civilian contractors who supply wargames to the military have 
a nead start on the rest of the computer software industry, 


Bee there is still a long way to go. 
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Another possible advantage in using microcomputers for 
Wargaming is reducing the intimication the user feels while 
puting in a large computer center time sharing with a 
mainframe computer. Anxiety and trepidation on the behalf 
of the user may be kept to a minimum by using micros that 
mmcOrporate user friendly software. 

Two major disadvantages associated with using micro- 
computers for large scale wargaming are: 

ie ine tack of standardization in the microcomputer 
MUS Oy 

mee ine inability of today's microcomputers to handie 
very large databases with the speed necessary to use 
iiemean “real time” applications. 

Until an industry-wide standard is adopted purchasers 
of systems must ask themselves if what they're buying will 
be compatable with what they already have or what they may 
buy in the future. 

The second disadvantage is not as serious as the lack of 
Standardization since technological breakthroughs often 
Meeur. loday's 8-bit and 16-bit microprocessors will surely 
give way to tomorrow's 32 and 64-bit microprocessors. This 
increased size chip will allow vast amounts of online 
computer memory to be available for instant recall, thereby 


allowing increased database size and retrieval speed. 





B. IMA IN GENERAL 

iow iieepeorrenmic a small) scale A2tvempt tO correct many 
of the above listed deficiencies. The microcomputer has 
become a very powerful computing tool. This is due primarily 
menvecnonological increases in the areas of silicon chip 
memory densities and larger, more sophisticated microprocessors 
Meee Taster cycle times. The microcomputer's lower cost and 
meen reliability make it possible to increase overall 
aveilability of computer wargames as well as computers in 
Seneral. 

The major goal of the TMA program is to demonstrate some 
user friendly software implementation techniques while 
exploring the capabilities of microcomputers in wargaming. 

In addition to being informative and instructive in nature, 
this program is intended to be painless to use and fun to 
Mecch. this is made possible by: 
1. Programming the game in the computer language Pascal. 
fmmvicineg the high resolution graphics capability of the 
Pople Li computer. 

Pascal was chosen as a programming language over BASIC 
Smee FORTRAN because of its highly structured nature. This 
merucuuring allows, if not requires, modular design and makes 
Memvery legible and comprehensible for large programs. CGhanges 
and modifications can be made several times faster than in 
Mmepructured languages. Also, Ada, which is soon to be 
Pequired of all contractors who want to do business with 


fie U.S. Department of Defense, can be thought of as an 
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enhancement of Pascal. Pascal comes in many versions. The 
version used for TMA is Apple Pascal which incorporates UCSD 
Pascal and Apple extensions for graphics, sound, and paddles. 
Of these extensions TMA uses graphics and sound. 

The high resolution graphics capability of the Apple II 
computer makes it possible to produce an aesthetically pleasing 
graphical presentation of the actual events as they happen 
during the simulation. This could be expanded upon by having 
a high resolution color monitor instead of a green or black 
and white screen. Visual representation prompts faster feed- 
back from the user. He can quickly scan and understand each 
tactical situation as it occurs. The more computer graphics 
are used to represent what is actually happening, the more 


useful the wargame will be to the user. 
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eee OG aM 


MA is an acronym standing for Tactical Motion Analyzer. 
The main program is comprised of three separate subprograms; 
the database, the motion analyzer and a fast-time replay of 
the motion analyzer. 

The database subprogram is designed to be interactive in 
nature. Menus are used throughout the program that offer the 
Mere 2a selection of specific choices that may be made. Once 
an appropriate choice is made, that segment of the program 
becomes active. If the user makes a mistake or changes his 
mind about a selection, the program will allow the user to 
regress to the previous level. When an input is required 
mee computer will prompt the user. if an unexpected input is 
received the computer will beep, the input will be erased from 
the screen and the user will again be prompted for input. 
Mars Will not prevent erroneous input from getting into the 
Gatabase, but will prevent the user from entering a number 
if a letter is expected and vise versa. 

The database portion of the program allows the user to 
develop and save various parameters of specific units. These 
parameters are entered by the user and then saved as a file 
Bemune game diskette. This information is then available 
throughout the program using random access. There is a 


default database on the TMA1 diskette consisting of ten units 





(specifically surface vessels). The user can use the default 
database or devise his own. Each game diskette has room for 
at least ten separate user database files. Input required by 
the database for each unit is as follows: 


Glass 

Name 

Hull number 

Initial Course 

Initial Speed 

Position (X-Y coordinates) 

Maximum unit speed 

Number of surface-to-surface missiles (SSM) on board 
SSM speed 

Number of surface-to-air (SAM) missles on board 
SAM speed 


e e e e 


HH 
HOOD dOIDMNEWD 


Course and speed are the only parameters which may be 
alterea before each move. 

Hach user database must have a different name. When the 
diskette becomes full, the program will let the user know by 
Printing an appropriate message on the screen. More room can 
be made available on the diskette by removing an unnecessary 
datafile. 

The database subprogram is completely selfcontained. 
Wiebe whe User is interacting with this section or the progran, 
no data is transferred between computers. 

The second subprogram of TMA deals with the mathematical 
Gemepulacion and graphical display of the program. All 
Secu ations in TMA are deterministic. Motion for each unit 
aS computed from three inputs provided by the user; course, 
speed and time. Course and speed are maintained in the 


4. 


database. A time increment is entered before every time-step. 
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Toone wm, ante urmmonoOmeery are used to derive all unit 
Merton. the calculations are first computed for the user's 
side, then the program automatically communicates with the 
Seponent's program and retrieves tne necessary data to plot 
mime Updated positions of his units. A history of all position 
@Margses are saved on the diskette for later use by the progran. 
Communication between computers is handled by the user. The 
program will stop at the appropriate time and request the 
players to exchange program diskettes. This exchange allows 
each player to view the moves made by the opponent. If for 
some reason this exchange is not made, the program will 
continue to run, however, only the mcves made locally will 
be displayed. 

Between moves the user can study each unit's situation. 
mmemuser has the following options: 

Draw a circle of a specified range. 

Compute the range and bearing between units. 

Determine closest point of approach (CPA) between units. 
Calculate intercepts between units. 


Move individual units around the screen. 
Advance to the next time-step. 


Our Wd — 


MmEG@orewomeci tie description and explanation of how to use 
meee prosram follows in the Appendix in the form of a user's 
manual. 

The graphical representation of TMA is oriented in J.S. 
Navy standard. North is 360 or 000 degrees and corresponds 
to the top of the screen. Hast is 090 degrees and is the 


ment side of the screen as the user views it. SBearin, 


- 
i 
oS 


Fy 


S 


gaerease to the right (clockwise). The graphic sereen of the 


eee = 


U) 
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Apple computer is not square but is actually a rectangle that 
measures 280 dots along the X-axis (horizontally) and 192 
dots along the Y-axis (vertically). This rectangular display 
has some inherent disadvantages. The disadvantage most 
noticable to the user will be that circles drawn on the display 
will appear as ellipses. Also, identical distances drawn along 
Bem axes will show on the screen as having different length. 

The graphics screen of TMA, as viewed by the user, will 
Memsist of a 100 by 100 mile square grid. Each dot will 
represent one mile. The lower left-hand corner will be the 
Mammen. ihe horizontal and vertical axes correspond to the 
X and ¥ axes, respectively. These square coordinates will 
be linearly transformed, within the mechanics of the progran, 
into the rectangular grid that the Apple computer uses. All 
numerical output to the user will again be transformed to the 
Mere familiar 100 by 100 grid. 

This method of graphic display was chosen by the author 
to ensure 2 one-to-one correspondence between the user's 
grid coordinates anc that of the macnine. In retrospect, 
Woes May not be as important as originally envisioned. 
Consequently, this phenomenon is one that may be corrected 
By changes to the program code. 

Calculations are performed using real numbers, which on 
the Apple Computer have precision to seven decimal digits. 
However, displaying these positions on the screen reauire 


rounding off each vosition to its integer equivalent. The 


aay 
Co 





mieaes Of this induced rounding error is varied depending on 
what scale the user is viewing the screen. For example, the 
[eecial scale is 1 dot per mile. In this scale the round 
V_emmor May account fOr a Screen positioning error of up 
to one mile. 

The final section of TMA is the fast-time replay subprogranm. 
When Rerun is invoked by the user, the screen will clear and 
display the game situation as it was before the first move of 
the game. During this phase of the program all user options 
are active just as before. However, when the user elects to 
advance to the next time step, instead of computing new positions, 
mee computer will read the next set of coordinates from it's 
ieoory file and display them on the screen. This gives the 
user the ability to observe a lengthy series of moves condensed 
Mmiora relatively short time. This is an ideal time for the 
Meer tO critique his own tactical decisions and to observe 
those of his opponent. The Rerun subprogram is completely 
selfcontained, tnat is, no interaction takes place between 
computers. Hacn terminal is a stand alone system at this 


meme requiring no exchanging of diskettes. 


i 





IV. MOTION ANALYZER 


A. INITIALIZATION 

TMA is a large program as microcomputers go. The text 
version is over 3000 lines of Pascal code. The compiled 
length equates to about 40,000 bytes. This does not include 
meee i brary routines that are used for graphics and trigono- 
Meoric functions, nor memory that is set aside for variables. 
Meoneugh the Apple II is a 64,000 byte machine, it cannot 
store the Pascal language, TMA, and the library routines in 
memory at the same time. Pascal, however, is such a flexible 
Panguace that it allows the programmer to divide programs into 
smaller segments that are only loaded into memory when 
needed. Only the 'main' program need reside in memory at 
eee vime. 

The 'main' program is loaded into memory automatically 
when the machine is turned on, provided tne TMA diskettes 
meewin the Gisk drives. The 'main' program has two important 
Meroe Lions: 

1, The declaration of all giobal variables used in TMA. 
meee lne job of 'program director’. 

Many variables used in TMA are global. The record which 
contains all database information, datafile names, and flag 
memes are needed in various segments throughout TMA. In 
order to pass the values of these variables between program 
Segments, they must be declared in the main progran. 
Unfortunately, each global variable consumes precious memory. 
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The main program acts as program director by checking the 
status of each flag variable. Throughout the program various 
flags are set. These flags are boolean variables that have 
values of 'true' or 'false'. These flags are changed as the 
Meyer progresses through the program. ,When the user leaves a 
segment, TMA always returns to the main program to check the 
memes. ihe main program determines which segment is to be 
loaded into memory based on present flag status. This loading 
and unloading of segments into the memory is virtually 
Mmyrstble to the user. However, program response time is slowed 
Meeerecgauent access to the disk drives. 

Once the main program is loaded, execution begins. TMA 
reads a file on the TMAi diskette called SYSTEM.MISCIN®O. 
ies tile contains the screen control characters for each 
SBomputer. Using SYSTEM.MISCINFO allows the programmer to 
perform general video functions that are terminal independent. 
Meee functions include ciearing the screen and positioning 
fee Cursor. 

An initialization segment (TMAINIT) is loaded next. 
Meenuit sets certain variables, arrays, and ail flags to 
meer initial values. This segment also asks the user if he 
Wants to resume an old game. If the user responds affirma- 
Mavely, the proper flag is set and the program transfers to 
the RESUM# segment. The RESUME segment reads data from the 
Bast move of a previous game from five different disk files 


M@imecne Giskette TMAdZ. These five disk files are then removed 
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from the diskette. If the user opts to begin a new game, the 
motion analyzer subprogram is invoked by selecting the MOTION 


Pei ols PROGRAM option. This subprogram is the bulk of TMA. 


B. MOTION ANALYSIS 
1. Segment procedure MATHFUNC 

The procedure MATHFUNC marks the actual beginning of 
the MOTION ANALYSIS PROGRAM. This procedure has several 
melated functions. 

MATHFUNC first asks the user the name of the diskfile 
containing the database for the game. The user enters the 
filename, and the program locates and reads that disxfile. 
Should the user misspell or make a mistake typing the filename, 
Ghe program will continue to prompt the user until a correct 
filename is entered. The program, having read the desired 
datafile, computes each target's initial position and displays 
them on the monitor. This gives the user an opportunity to 
visually check the information in the database. The user 
must press the escape key (HSC) on the keyboard to continue. 
AG this point, the user has two options. The user may elect 
tO continue the game, or revturn to the database segment to 
make changes to the database. The database segment is 
Beeocussed in detail in chanter 5. 

if the user decides to continue then several events 
Occur. TMA opens two historical datafiles on TMA1 (ORNGOLD. DATA 
and BLUEOLD.DATA). These datafiles maintain unit positioning 


data for use during the RERUN segment of TMA. Specifically, 
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each file contains an X and Y coordinate for each unit and the 
time increment for each game move. One additional disk file 
is initialized also (BLUENOW.DATA). This file, on TMA2, 
maintains the present positioning data for the user's units. 

At this time TMA ceases to be a self-contained program 
and the user is informed that data transfer between players is 
necessary. Instructions are displayed on the monitor and the 
user need only follow them. These instructions request the 
user to remove the TMA2 diskette from drive #2 and exchange 
it with his opponent's TMA2 diskette, then place this TMA2 
diskette in drive #2. As mentioned above, a datafile 
(BLUENOW.DATA) is maintained on TMA2 that contains current 
positioning data. When these diskettes are exchanged, current 
positioning data is also exchanged. Both sides now have 
current positioning data for themselves and their opponents. 
The MATHFUNC segment terminates, sets the proper flags, and 
mermeters program control back to the main progran. 

2. voecscment procedure MOTION 
The main program transfers control of TMA over to the 


procedure MOTION. This procedure performs the actual motion 


analysis requested oy the user. The user has the following 
ee ONS : 

[ere Advance to next time-step. 

[eee Draw range circle around a specified unit. 

3. Compute range between units. 

4. Determine CPA between units. 

pe Determine Course/Speed of units. 

6. Check/Change movements of a unit. 

fo COmpute intercept between units. 





8. Clear the display. 
9. Downscale display. 
mo, Upscale discvlay. 
11. Recenter the display on a specified unit. 
12. Toggle between text and graphic page. 
13. Terminate the game. 


3. Segment procedure ADVANCE 
The Advance option transfers control of TMA to the 
ADVANCE procedure. Based on a time step entered by the user, 
the program calculates new X, Y-coordinates for ail units. 
ite tollowing formulae are used: 


m= X + (SPERD/60 x TIME x 2.8 x SIN(COURSE)) 


Ee! ecole), OC Lin x 1.92 x COS(COURSE) ) 

Gy Gemccwmeredhbetre new X and Y positions respectively. 
SPEED is the unit's speed in nautical miles per hour, the 60 
converts it to minutes. TIME is the time-step entered by the 
user in minutes. The numbers 2.8 and 1.92 are the number of 
Beopnical dots per nautical mile in each plane X, Y. The 
trigonometric functions SIN and COS determine the X and Y 
Semoonents of the unit's velocity. 

Before the actual computations are verformed, however, 
the user is given the option of viewing and changing the 
Meooent course and speed of each unit. This way minor changes 
may be made to the database without returning to the database 
procedure. 

MeOucworaLerepresentation Of units pefore and after 
meey advance is shown in figures | and 2 on the following 
page. Figure 1 shows three units as they may appear before 


being advanced. Figure 2 shows the units after they have 








advanced. Both the before and after positions will be 
feoplavyea Until the user clears the screen or changes scale. 

After the new X and Y coordinates are calculated, they 
are saved on the diskette TMA2. Once again the user goes 
through the diskette exchanging procedure with his opponent. 
These coordinates are then saved in the historical datafiles 
On the diskette TMA1. 

The ADVANCE procedure then transfers control back to 
the MOTION procedure. The new unit positions are displayed 
Qa the user may again select from the various options. 

ae wegment procedure CIRCLE 

Umecmeccecarre allows the Wser to draw circles of a 
specified range around any unit. The TMA program prompts 
Meemeescr fOr the Circle's origin and a radius in nautical 
Mees. Due to the graphical limitations of the APPLE [I 
@emputer, these circles must be drawn one dot at a time. 

Mme circles will always appear elliptical vice circular. 
Mats is because of the difference in the number of dots per 
fee along the horizontal axis and the vertical axis. Figure 
3 shows the display after a circle is drawn around unit number 
Meee Atter the circle is completed, control of TMA is returned 
to MOTION. 

>. Ffrocedure RANGE 

Procedure RANGE is incorporated into the MOTION segment 
Mmeeccdure Since it is relatively small. RANGE calculates the 


distance between any two units. The vrogram prompts the user 


Z26 





jee che Unit numbers desired, target 1 and 2. A line is 
drawn between the units, and the range is displayed in nautical 
miles. Range is calculated using the square root of the sum 
Mae vne squares. 
mmo = SGORT(((X2-X172.8)A2 + ((Y¥2-¥1/1.92)A2) 

where, 

Giveeclsits Cheepwesentepocition Of target 1. 2, 

[mee the present position of target 2. The factors 2.8 and 
meee transform the units from dots per nautical mile to 
nautical miles. The term 'A2!' means raised to the second 
power. SQRT implies take the square root. 

Figure 4 shows the display after the range between 
unit zero and unit one has been calculated. After displaying 
the calculated range between targets, program control is 
returned to the MOTION segment. 

Oe ceement procedure CPA 

Hicmeorrimenoceetime Calculates the closest point of 
approach between two designated units. Computations are based 
on present course and speed. 

CPA derives all information, course and speed, from 
the two most recent unit positions. Obviously, if no advances 
have been made, course and speed can not be determined. CPA 
Will inform the user that not enough data exists to calculate 
era. 

Assuming at least one time-step advance has been made, 


meee s calculated as follows: 
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Figure 3: Monitor with circle displayed 





Figure 4: Monitor with range displayed 





meme yvomneOsctverecent DOSiLtLONS of all units are main- 
tained in a global array throughout TMA. Based on these 
me@e1tions the course of any unit can be calculated using the 
@ectangent function. 

COURSE = ARCTANGENT((DX/2.8)/(DY/1.92)) 

De ts the distance moved in the 4 direction and DY is 
the distance moved in the Y direction. Once again these 
distances are translated from dots per nautical mile to nautical 
Mees. A problem occurs when DY is zero or close to zero. 
Beechecking this first the program can avoid ‘division by 
meme errors. if DY is zero the course must be either 090 
or 270 degrees. Again this can be determined by the sign of 
Meee Li DX is positive, for example, the unit is traveling 
Seedegrees. Unit speed is calculated in a two stage process. 
Mestance is calculated first using the same method described 
in RANGE above. Speed is derived from this distance divided 
Meeunie Length of time of the last time-step. 

Wemiemeeiomeolm@oceand Speed Of Lhe units the program 
uses the X and Y components of velocity to compute the time 
Maimimum distance. This is the tire of CPA. Once CPA time 
is known, the relative future positions of each unit is cal- 
Smeaved and displayed. Figure 5 shows the screen after TMA 
has calculated CPA between unit zero and unit one. The end 
point of tne displayed lines is the relative unit positions at 
fee Finally, the program informs the user of the number of 
minutes until CPA, and the range and bearing between units at 
eA. 


Control is then returned to the MOTION segment. 
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Figure 5: Monitor showing CPA 





Figure 6: Monitor showing unit movement 





i. Procedure INTERROGATE 
iWers precedire devermanes the course and speed of any 
unit. As in CPA above, this procedure uses the two most 
recent positions of the target to determine its course and 
speed. The program will inform the user that it does not 
have enough data. If the user attempts to invoke this pro- 
cedure after at least one time-step advance, then the unit's 
meemrse and speed are calculated exactly as described above in 
See. After the course and speed has been determined and 
displayed, program control is returned to MOTION. 
8. Segment procedure MOVEMENT 
The MOVEMENT procedure moves individual units around 
the grid before actually making the changes permanent in the 
database. Three types of movement are possible for the 
player's units and one type for the opponent's units: 
Movement using course, speed and time. 
mewove your unit to any 4A,Y¥ coordinate.. 
Move your unit a bearing and distance. 


- Move your opponents units based on their present course 
and sveed. 


WwW NM > 


CePmOnesOnespronpts sie user for the unit number, 
desired course, speed and time. The future position is 
Seeeulated using SIN and COS functions, and then displayed on 
Peeemonitor. Option two prompts the user for a unit number 
em@eman A and ¥ coordinate, which is then displayed on the 
femevOor. Option three prompts the user for a unit number, 
bearing and distance. This is transformed into an X and Y 


Meeeainate, then displayed on the monitor. Option four is 
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Mamecirectiy visible to the user, nonetheless, it is there. 
Mmechie User wishes to move an opponent's unit, option four is 
automatically invoked. Option four transfers control to 
segment procedure MOVE. 

All movements allow the user the option trace-on 
Seetrace-off. Trace on draws a line from the old position 
memune new position. Trace off will not. After making a 
move the program asks the user if it should incorporate the 
move into the database for the next time-step. If the user 
answers affirmatively, the new course and speed for the unit 
moved will be entered. 

Figure 6 shows three different movements of unit 
number one. Note that two movements are with the trace-on 
em@emone 1S with the trace-off. All unit movements will 
remain visible on the monitor until the user clears the 
Sercen. 

The MOVEMENT segment can only be terminated by the 
Wser. Once terminated, program control is returned to MOTION. 

9. Segment vrocedure MOVE2 

This segment is invoked only when the user wants to 
meme an opvonent's unit. Since the user has no control 
Over the course and speed of these units, all movements are 
based on the individual unit's actual course and speed. Course 
Bemespeed are computed exactly as discussed above in segment 
procedure CPA. Once again at least one time-step advance 
must have been made to compute the unit's course and speed. 


Assuming the data is available, the user is asked for a 
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time-step increment to see the unit's future position. The 
my OLher Option allowed is the trace-on or trace-off. This 
also works exactly as described above in the MOVEMENT segment. 

Completion on the MOVE2 segment returns control of 
the program to the MOVEMENT segment. 

10. Segment orocedure INTERCEPT 

This procedure computes the course and speed required 
GO intercept any unit from any user's unit. Three inputs 
are required by the user. Input one is the unit to be inter- 
cepted. The second input is the unit number of the intercepting 
unit. Note, this unit must be maneuverable by the user. The 
meee input is the desired time of intercept (minutes). Once 
again at least one time-step advance must be made to compute 
an intercept. The time supplied by the user will determine 
Ghe point of interception, assuming the data is available to 
compute course and speed of the unit to be intercepted. An 
intercept course is computed and speed is calculated based on 
the present position of the intercepting unit and the point 
and time of interception. This course and speed is displayed 
on the monitor and the user is asked if he wants to make this 
@emtse and speed change to the database for the intercepting 
Bn oC . 

Wien conpike ted secentrol is returned to the MOTION 
segment. 

ire LeteioG library segment 

The downscale and upscale options are contained in 

the SYSTEM.LIBRARY file on diskette TMA1. These options allow 


the user to change the scale of the display at any time. 
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The left arrow key (+—) controls the downscale 
mometion. This function clears the display and then redisplays 
all units at a scale one half the previous value. For example, 
if the scale is 10 dots per nautical mile, it becomes 20 dots 
per nautical mile after a downscale. 

The right arrow key (=~) controls the upscale function. 
Meeas the exact inverse of the downscale function. If the scale 
mmr dots per nautical mile, it becomes 5 dots per nautical 
mile after an upscale. 

Neither downscale nor upscale have any affect on the 
mea! positions of the unit's coordinates used for calculations. 
These positions are kept in global arrays that are used 
throughout the program. The present scale is displayed at 
the top of the screen at all times. The scale shows the 
relative horizontal distance of ten miles. The user should 
note that the same vertical distance appears shorter because 
Se@emnumber of dots per nautical mile is less. Automatic 
scaling is not available, the scale will not change unless 
Mm@enuser exercises his ovtions. 

12. Segment orocedure RECENTER 

This procedure belongs in the THESISO library, however, 
was made into 1ts own segment because of memory constraints. 
RECENTER, as its name implies, recenters the display. The 
Space bar activates this procedure. The user may recenter 
Ome display on any unit. This becomes very important as the 


game advances and the targets move. 
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Peouew rie TOO On the display, next to the scale, are 
m@emecciter coordinates. These coordinates are initially 
(50,50) which is the center of the screen. As the user 
recenters, the top of the display always indicates the current 
screen center. 

After recentering, the control or the program returns 
to MOTION. 

13. Toggle the display 

The APPLE II computer has two separate screens, the 
text screen and graphics screen. The TMA program tries to do 
a good job of anticipating the users needs by switching 
between text and graphics. However, the user has the option 
of switching between text and graphics on his own by using the 
escape (ESC) key. 

14. Terminating TMA 

ioiemeanal Opymon avallablesto the user is to terminate 
the program. @MA displays the same menu as was shown at the 
beginning of the game. [f the user selects the TERMINATE 
FROGRAM option, the user is asked if he wants to save the 
fees 8 Lhis option should be selected if the user wishes to 
memarn later to finish the game. This option creates five 
Mmeererent datariles on diskette TMA2 for future use. When 
M@emiser Wishes 4O continue the game, answer affirmatively to 
that question and assure that TMA2 is in drive #2. The program 
Will load the appropriate data, initialize the proper variables 
and return the user to the MOTION segment procedure as if 


Mmemnad never left. 
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V. THE DATABASE 


The database subprogram is invoked by selecting the 
TBUELD OR MODIFY DATABASE' option at the start of the game. 
The database uses random access disk files to build and main- 
tain a record of specific unit parameters. Modifications to 
an existing database are quickly made due to the random 
meee ss structure. 

Mae vlally, the program asks the user to enter a file name 
for the database. After the file name is entered, two 
@eeot bilities exist: 

ieee tne file name already exists on the game diskette. 
2. Tne file name does not exist on the diskette. 

If the name is presently on the game diskette, the program 
fee read that file into the computer. That information will 
when be available for viewing and editing. If the file name is 
not on the diskette, the program will ask the user if he 
Memes tO Start a new file. A 'no't response will cause the 
@emputer to again ask the user for a file name. A ‘yes! 
response will prompt the program to ask how many records 
Meemneeded for the new datafile. If the number of records is 
mot Known, a best guess is required. The number of records is 
Mreessary to define disk space for random access. However, 
Memeone user decides to extend the number of records the program 


fee automatically extend the size of the datafile. The program 
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will notify the user should the diskette become too full to 
extend the Gatafile. To save disk space it is generally 
better to initially under estimate the number of records than 
to over estimate. 
Memane  SOlNtethe User will choose from the following 

options: 

1. View the present database. 

2. Change the present database. 

Bb. Build a new game database. 
The option chosen will determine how 'deep' into the database 
Miewuser will go. Options one or two allow the user access 
only to the upper level of the database. Option three allows 
access to both the upper and lower levels. The upper level 
Pemeists of the following: 
Meee ass: 
ee oull number: 
- Maximum speed: 
- Number SAM: 
me OAM Speed: 


Number SoM: 
SSS speed: 
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This option is recommended when the user is entering unit 
Maca, but is not ready to start a game. 
The lower level consists of the following: 
1 Name: 
a Course: 
m Specd: 
ie «A Coordinate: 
D Y Coordinate: 
This option is recommended when the user is ready to start the 


peme. These inputs determine the initial starting position 


and speed for each unit. 
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After choosing which level of the database to enter, the 
program clears the screen and displays a prompt line along 


meemtop. This prompt line affords the user the following 


Options: 
it Help 
a. View 
3. Change 
4. Next 
i File 
ome) Return 
fee Quit 


The Help option explains each option. The View option displays 
each record for the users inspection. No changes may be made. 
The Change option displays each record and prompts the user 
Meeeanput. Changes are made respsctive to the level the user 
meen, lhe Next option displays the next record in the file. 
The File option saves the present database to the diskette 

and asks the user for another filename. The Return option 
allows the user to change levels within the database. Quit 
Saves the present database to diskette and terminates the 
database session of TMA. 

Data entry into the database has been designed to be as 
Meantess as possible. The program displays the present con- 
tents of each field, when changes are required, on the top 
half of the screen. The user is prompted on the bottom half of 
Mmefemscreen for input, one field at a time. If a restriction 
Smoos On the range of that input, that range is displayed as 
fees «Any field may be left unchanged by either retyping 


mat data or by using the RETURN key. The return key will 
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automatically duplicate the present data into the changed 
database for that field. 

Fach record in the database is numbered by the computer. 
These numbers begin at zero and continue sequentially to 
N - 1, where N is the number of records in the database. 

Any record in the database may be viewed or changed at any 
time by entering that record number. Random access will 
minimize the time required to make minor changes to one or 
afew specific records. 

There exists on the TMA1 diskette two predefined databases, 
BLUEMASTER and BLUEGAME or ORANGEMASTER and ORANGEGAME 
depending on which side the user happens to be. These databases 
@entain ten ships with characteristics from JANE'S FIGHTING 
SHIPS. They are provided for the user to use as he wishes. 

The user may modify these files or use them as they are in 
lieu of building his own database. it is recommended the 
user view these database files to get an idea of the type of 


input expected by tne program. 





VI. THE RERUN OPTION 


The RERUN subprogram is invoked by selecting the 'RERUN 
MOTION ANALYSIS PROGRAM! option at either the start of the 
game or after terminating a game. This option allows the 
user to view a fast-time replay of the most recent session. 

As menticned in a previous chapter, all unit positioning 
data is saved in datafiles during the game on diskette TMA1. 
The RERUN subprogram resets these datafiles and sequentially 
mmeolays the unit positions. All TMA motion analysis options 
as described in chapter IV are available in RERUN. 

There is one difference between the RERUN and MOTION 
MeebiolS subprograms. That difference is in the segment 
procedure ADVANCH. The RERUN version is a reconstruction of 
past events. When the advance ontion is selected, the user 
/memnoc given an opportunity to examine or change the inputs 
to the database (unit course and speed). The ADVANCE segment 
only reads the next positioning data from the diskette files 
and displays it on the monitor. As always the user can 
analyze all unit motion. TMA will terminate when all 
available data has been displayed. 

Having a RERUN option gives the user a capability to 
repeatedly view and review all the moves of a previous 
Meseston. ft is worth noting that during this subprogram 
TMA is self-contained. No interaction between players is 


Meeesoary since all positioning data is stored on the diskette. 





VII. THE USER'S MANUAL 


iment OLvewineg 25 42 Step by Step instrwetion guide to 


meettitcate the running the TMA by an unexperienced user. 


ae 


B. 


Iz 


ae 


c. 


4. 
Ds 


i. 


EQUIPMENT NEEDED 


Two game diskettes marked TMA1 and TMA2 for each player. 
Two APPLE II computers with 64,000 bytes of RAM (random 
access memory). 


Two disk drives and one monitor per computer. 


OPTIONAL EQUIPMENT 


Wadex GO column bDoard with soft-switch installed in 
APPLE's slot #3. 


helor MOoniuor. 


GETTING STARTED 


hus On the monitor. 

iicsert, MMA into disk drive #1 and TMA2 into drive #2. 
Remember to close the doors! 

Turn on the APPL#. The power switch is located on the 
Meigeesiae Of tne APPLE in the back. 


The TMA program is automaticaily loaded. 


TROUBLESHOOTING POSSITBL& FROBLEMS 


No power--#nsure all hardware is properly connected. 

If the user is unfamiliar with the equipment, seek 

Out an experienced user. 

TMA does not load. 

a. Check that the diskettes TMA1 and TMA2 are in the 
Cemmcerrca sk drives. 
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b. Ensure that the APPLE II is configured as listed 
above. 
ec. Attempt the startup procedures on the second 
APPLE. If not successful, the diskettes may be 
defective, use the backup diskettes. 
d. seek assistance from an experienced user. 
ompiS DOint, 1f the wser has been successful, TMA is 
iertaed and ready to run. Chapters 4, 5, and 6 explain in 
detail how TMA works and what inputs are required from the 
ser. IMA is menu driven and aesigned to be user friendly. 


The author hopes the users enjoy it. 


oe 





VIIT. AREAS FOR FUTURE ENHANCEMENTS 


TMA is a small scale model of what a microcomputer, 
[Mmeeractive wargame can do. As such there 1s much room for 
program enhancement. One reason the author chose Pascal as 
the program language is the readability of the code. It 
should be relatively easy for a user familiar with Pascal to 
make changes to the progran. 

mio-eaesiton of IMA has “significantly changed from initial 
meee tO final product. The incorporation of various changes 
Meee resulted in a program that is far from optimal. fhe 
present design of TMA uses all the segments and library 
routines that Apple Pascal can handle. Therefore, any changes 
Other than very small ones, will require the user to somehow 
condense the present code. 

Pie present inefficiency of the program is illustrated 
Dy the following example. The procedures that compute a 
unit's course and speed are repeated in four different segment 
Meeecccures. Jif this were incorporated into a library it would 
only be written once and could be removed from each segment. 
Piers are several occurances of similar situations. 

Another method of streamlining the program is by chaining 
meeerams together. The built-in library function CHAINSTUFP 
provides the necessary machinery to chain together as many 


RT Co 


programs as can fit on a diskette. To use CHAINSTUFF on TMA 
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femrd require the reduction of libraries or segments presently 
used by at least one. With chaining the author can create 
many separate programs that appear to the user as a single 
large program. <A user may wish to supplement TMA with some 
maetional motion analyzing options. Aaditions such as this 
may easily be appended to the present program. If lack of 
memory becomes a problem some of the above enhancements will 
Meerequired also. 

A final area that could be enhanced is the individual 
algorithms themselves. The algorithms were written for 
Clearity not efficiency. Many of the procedures and functions 


of TMA could be changed to conserve memory. 
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(X9N+%) 
(295443) 
($V-%) 


FROGRAM TMA; ¢ THESIS ) 


USES 


COMPUTER PROGRAM 


TURTLEGRAPHICS , TRANSCEND , GETCRT , THESISS ; 


CONST 
PI=3. 141592654; 
TYPE 
SHIP=RECORD 

CLASS: STRINGE 18]; 
NAME: STRINGE 18); 
HULLNO: STRING 8]; 
SCOURSE: INTEGER: 
SSPEED: INTEGER; 
ote INTEGER $ 
YPOS: INTEGER 
MAXSSPD: INTEGER: 
NSAM: INTEGER: 
SAHSPD: INTEGER; 
NSSM: INTESER: 
SSMSPO: INTEGER 
END: 


UAR CH: CHAR; 


TECT .SLFLAG .RCTRFLAG , CONTINUE , LASTCHANGE ,SUILDING CBCALLED: 200LEANs 


MMFLAG ,RRFLAG, FFLAG! TFLAGZ, [FLAGS TFLAG4, TFLAGS TFLAGS, PFLAG: S00LEAN; 
STOPFLAG .GRAPFLAG. iNITFLAG QUITFLASG , OLDELAG CASES CASE! CASE2: SOOLESN: 
CASE@A OLDGAME..ICPTFLAG: SOCLEAN; 

OKSET: SETCFCHAR; 

OATAFILE: FILE OF SHIP; 

ELUHIST ,SLUGAME ORNHIST ORNGAME: FILE OF REAL: 

ATIME: File OF INTEGER: 

MAKSHIP TIME ,ORANGEMOVE .SLUEMOVE MTARGET DELTAT ,RECHUM: 
FILENANE:  STRING{15]; 

OCUS GSPD: PACKED ARRAY{1..18] OF REAL: 

OLDBXY .GLDOOXY: PACKED ARRAY[1..2,1..1/8]0F REAL; 


(INTEGER; 


(39085 TRAINIT . TEXT) 
CAS1A5 3 TMRO8 1 TEXTS) 
($145 sRESUME TEXTS) 





($195 MATH. TEXT) 
(39185 MOTION. TEXTS) 
(28145 sADVANCE . TEXT) 
(ASTASSCIRCLE. TEXTS) 
(X$185 CPA. TEXT) 
(S145 sMOVEMENT . TEXT) 
(X$145 sMQVE2. TEXTS) 
(X$STHOSRECENTER. TEXT) 
(3195 :BL IME. TEXTS) 
(X$1 45: TMAPINIT TEXTS) 


BEGIN ( TMA 3 
(X$R GETCRTX) 
GETCRT INFO; 
OBCALLED:=FALSE; 
TMRINITs 
REPEAT 
IF OLDFLAG THEN RESUME; { read in old sositions 3} 
IF INITFLAG TEEN TMAINIT: 
IF CASES THEN MATHFUNC; 
IF (CASESA) AND (NOT RCTRFLAG) AND (NOT BLFLAG) THEN MATHFLUNC; 
[F CASE] THEN RECENTER: 
IF CASE2 THEN DATABASE; 
IF (CONTINUE) AND (NOT SLFLAG) THEN MOTION: 
IF (BLFLAG) AND (NOT RCTRFLAG) THEN SOTTOMLINE; 
iF (TFLAGI) AND (NOT BLFLAG) AND (NOT XCTRFLAG) THEN MOVEMENT; 
IF MMFLAG THEN MOVEZ; 
TF (TFLAGZ) AND (NOT SLFLAG) AND (NOT RCTRFLAG) THEN MOTICN: 
IF TFLAG3 THEN CPA; 
IF TFLAG4 THEN MOTION: 
IF (TFLAGS) AND (NOT RRFLAG) TEEN ADVANCE: 
[F (TFLAGS) AND (RRFLAG) THEN CIRCLE: 
IF (TFLAGS) AND (NOT BLFLAG) THEN MOTIGN; 
[F TFLAG? THEN CIRCLE; 
IF RCTRFLAG THEN RECENTER: 
IF QUITFLAG THEN TMAFINIT; 
UNTIL STOPFLAG: 
END. { TMA 3} 


SEGMENT PROCEDURE TMAINIT; 
VAR GFLAG,SFLAGI: CHAR; 
LEVELY: SETOFEHAR: 
PROCEDURE PRESTART: 
BEGIN 
Meente={°Y’,’y’ NN’, /n7)3 
BOTOXY (3.8) sCRT(ERASEDS) : 
WRITELN: 
ARITELNC’ MEMORY AVAILABLE IN WORDS: * MEMAVAIL) ; 
WRITELN: 
WRITELN(’ MOTIGN ANALYSIS PSOSRAM OPTIONS : ‘); 
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ARITELNS 
WRITELN(’ D0 YOU WISH TO RESUME AN OLDGAME (Y/N)? %); 
WRITELNsRRITELN: 
WRITEC’ “D3 © GFLAG1:=GETCHAR(COKSET+{CHR( 13) 2) ; 
CRICERASEOS) s CRT CERASCOS) ; 
IF GFLAGI IN (’Y’,’y’] THEN OLDFLAG:=TRUE; 

END; ( PRESTART } 


PROCEDURE START; 


BEGIN 
GOTOXY (8,8) 3CRT (ERASEOS) : 
WRITELN: 
WRITELN(’ MEMORY AVAILABLE IN WORDS: ’ MEMAVAIL) ; 
ARITELNs 


WRITELN(’ MOTION ANALYSIS PROGRAM OPTIONS : 4); 
WRITELN(’ 7); 
WRITELN(’ 9 Motion Analysis Program’); 
WRITELN(’ i Rerun Motion Analysis Program’) ; 
ARITELNC’ 2 Bulid or Modify Data Base’) ; 
WRITELNC’ 3 Terminate Frogram’); 
ARITELNs 
WARITE(’ %); SPLAGs=GETCHAR(LEVELS) ; 
CRTCERASEGS) ; CRT CERASEOS) 

END; € START } 


PROCEDURE SETFLAGS; 

SESIN 
CONTINUE:=FALSE:( = tr¢ to motion from anath } 
DECALLED:=FALSE:{ set to true if database was called } 
INITFLAG:=FALSE;{ calls tmainit seq.procedure } 
OLDFLAG:=FALSE; ¢ set to true if player wishes to recume old game } 
OLDGAME:=FALSE; { set to true if this 15 a Sesumption of an old game) 
BLFLAG:=FALSE: { {rf to bottomiine } 
RRFLAGs=FALSE: tr# to rerun } 
MMFLAGS=FALSE; tr¢ to move2 ¢rom movement } 
TFLAG1:=FALSE : to movement from motion } 
TFLAGZ:=FALSE; tr¢ to motion from movement } 
TFLAGS:=FALSE : tr¢ to copa from action } 
7FLAG4 :=FALSE; trf to moticn from cpa } 
TFLAGS :=FALSE$ tr to aqvance from notion } 
TFLAGS :=FAL SE; tr¢ to motion from advance } 
TFLAG? s=FALSE : tr# to circle rom notion 3} 
[CPTFLASS=FALSE: ( calls intercept routine } 
CASEO:=FALSE; ¢ «calls mathfunc seg.procedure } 
CASEVA:=FALSE: € calls mathfunc seq.orocedure } 
CASE!:=FALSE: (€ calls rerun seq. orecedure } 
CASEZ:=FSLSE; ¢ calls database seq.orccedure } 
GRAPFLAG:=FALSE:{ ‘lag for gratmode } 
RCTRFLAG:=FALSE:{ calls recenter routine } 
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QUITFLAG:=FALSEs{ calls tmafinit seq. procedure) 
STCPFLAG:=FALSE;{ terminates tma } 
END: 


PROCEDURE INITFIGs 
VAR I,J: INTEGER; 


=! 70 8 00 PEGIN 
FOR Js=1 70 7 00 SEGIN 
feet 


END: 

SHIFFIGC1,t]:= TRUE; 

SHIPFIGES,1]:= TRUE; 

SHIPFIGE4,7]:= TRUE; 

SHIPFIG(?,3):= TRUE; 

SHIPFIG(?.SJ]:= TRUE; 

FOR T:=1 10 3 00 SHIPFIGCI,4]:= TRUE; 

FOR 1:=2 70 4 D0 SEGIN 
SHIPFIGEI ,3):= TRUE; 
SHIPFIG{I .SJ:= TRUE; 

END; 

FOR 1:=3 TO 4 00 BEGIN 
SHIPFIGCI ,23:= TRUE: 
SHIPFIG{I .$]:= TRUE; 

END; 

END 


BEGIN {¢ TMAINIT } 
Maevos=i 6°, ° 1" 62° 737); 
TIKE :=8 3 
XCTR:=148; 

YCTR:=96: 
MAXORANGE :=9; 
MAXBLUE :=8 3 
SLUEMOVE :=8: 
ORANGEMOVE :=3 
SCALE:= 1: 
IF NOT OBCALLED THEN SETFLAGS; 
INITFIG: 
PRESTART : 
INITELAG:=FALSE: 
IF SLOFLAG THEN EXIT(TMAINIT) ; 
START: 
CASE SFLAG OF 
A’ : CASES:=TRUE: 
“Ys TASE!:=TRUE: 
‘2° 3 CASE2Z:=TRUE: 
cMD: { CASE 3 
[F FLAG = °3’ THEN STOPFLAG:=TRUE: 





END; { TMAINIT 3} 

SEGMENT PROCEDURE RESUME; 

VAR 
BNOA,SGLD,ONON, COLD: FILE OF REAL; 
mist: FILE OF INTEGER; 
J: INTEGER; 


PROCEDURE MSG; 
SEGIN 
GOTOXY (8,4): CRICERASEOS) : SOTOXY(8,3); 
WRITELNC’ UNABLE TO RESUME AN OLDGAME -- SATA NOT AVAILABLE ’); 
ARITELN: 
ARITELN(’ MAKE SURE THE CORRECT DISK IS IN DRIVE 42! ”); 
FOR Js=1 TO 40988 D0; 
INITFLAG:=TRUE 
OLDFLAG :=FALSE:; 
EXIT (RESUME) ; 
END; 


SEGIN 

Ji=ls 

(4$1-%) 

RESET(SNOW, ’#5:0L01. DATA’) ; 

TF CIGRESULT <)> 3) THEN MSG: 

(X$1 4%) 

WHILE NOT EQFCENOW) DO BEGIN 
SXYO1,J]:=ENGA*: GET CENGH) ; 
SXY(2,g]:=BNGH*; GET CENOW) ; 
GCUSEJ]:= BNOW*; GET CANON) ; 
SSPD(J}:= SNOW*; SET CENCH) ; 
Jiradtis 

END; 

MAXBLUE s=J-15 
LOSE CBNGA PURGE) ; 

Js=is 

(3$1-%) 

RESET(SOL9, “45:0L02.DATA’) ; 

iF (IORESULT ¢> 9) THEN MSG: 

(¥$1+%) 

AHILE NOT EOFCBOLD) 50 SEGIN 
OLOBXY(1,J]:=80LD*; GETCECLD) ; 
OLORXY{(Z.Ji:=BOL0*: GET(BOLD? ; 
J:s=J+ 1s 

END; 

CLOSE(80LD PURGE) ; 

J:=f3 

(4$1-#) 

RESET CONGH, “45:0LD3.0ATA’); 

TF CIGRESULT <> 9) THEN MSG; 

(t91+2) 
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WHILE NOT EQF(CNGH) 00 2EGIN 
OKY(1,J):=ONGA*: GET CONG) ; 
OXY(2,J]:=QNON*; GET CCNOM) ; 
JiaJtls 

END; 

MAXORANGE s=J-1 ; 
CLOSE ( ONGH , PURGE ; 
diets 
(X$1-%) 

RESET(GOLD, ‘°#5:0LD4.DATA’> ; 

IF (IORESULT <> 4) THEN MSO; 

(¥$1+3) 

WHILE NOT EQF(OCLD) DO BEGIN 
OLDOXYC1.J]:=00LD*; GET(COLD) ; 
OLDOXY(2,J]:=G0LD*; GET(OGLD) ; 
Js=J+ 1; 

END; 

CLOSE (QOLD ,PURGED ; 

(X$1-) 

RESET(MISC, ‘¥5:0LDS.CATA’) ; 

[F (TORESULT <> 9) THEN MSG; 

(¥$1+%) 

TIME s=MISC*; GET(MISC) ; 

BLUEMOVE :=MISC*: GET(MISC) ; 

ORANGEMOVE :=MISC*; 

CLOSE(MESC PURGE) ; 

REWRITE(GRNHIST, ‘44:0RNGOLD.DATA’) ; 

BLFLAG:=TRUE: 

CONTINUE :=TRUE; 

OLDFLAG:=FALSE ; 

OLOGAME :=TRUE ; 

SCALE s=1; 

ACTR:=148: 

YCTR:=963 

REMRITECSLUHIST, “34:SLUEOLD.DATA’ ; 

INITTURTLE: TEAT:=FALSES 

END; 


(£$6+%) 
SEGHENT PROCEDURE DATABASE: 
( PROGRAM TO USE RANDGM ACCESS DISK FILES } 
PND TERMINAL-INDEFENCENT SCREEN CONTROL. 
CONST 
CLASSLEN= !8 sMAMEL EN= 18 sHULLNOLENES : SCOURSELEN=3 : SSPOLEN=2: 
APOSLEN=3 : YPOSLEN=3 sMSPOLEN=4 :NMSLL ENE 2: 


-- 


PUNCTION YES: SCOLZAN: 
BEGIN 

Meee GENGrRR( LY’. ’y’.7N’ Rn?) IN (79%, ’y753 
END: 
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PROCEDURE MENU; 
VAR SUCCESSFUL: BOOLEAN: 


SEGIN 
GOTOXY (8,8): CRTCERASEOS) : SOTOXY(8,2) ; 
WRITELN( TMA DATABASE MAIN MENU =); 
WRITELN: 


WRITELN( / (A) View database %); 
WAI TELN( (8) Change database “); 
ARITELN( / (C) Build new game database “); 
BR ITELN( ¢ (Q) Quit %);3 
ARITELN: 
Meomuienit A, 3°, 0, D0, 0’, ¢°, 0%,'d’,'0".°Q")); 
GOTOXY(8,0): CRTCERASEDS) ; 
feetn IN'1°C’,’c’) THEN 
BUILDING :=TRUE 
ELSE 
BUILDING :=FALSE; 
END; { Menu 3} 


PROCEDURE ZEROREC(VAR HEC: SHIP); 
BEGIN 
WITH REC 00 
SESIN 
CLASS 2=7"3 
MAME 32°" 
HULLNO:=/’ 
SCOURSE :=4; 
SSPEED :=4: 
APOS:=8; 
YPOS :=8; 
MAXSSPD :=8: 
NSAN:=4; 
SAMSPD:=8: 
NSSM 3=8: 
SOMSPO:=8: 
END; 
END: 


PROCESURE VALIDATECVAR REC: SHIP) ; 


( 
( 
( TRIES TO CETECT AND ZERO AN UNINITIALIZED RECORD 
( NO CHANGE IF ALL FIELDS ARE VALID. 


_- 


PROCEDURE CKECK(VAR S: STRING; MAXLEN: INTEGER) ; 
LABEL {3 
VAR : INTEGER: 


nd 


RP eee? 





SEGIN 
(F LENGTH(S) ) MAXLEN THEN GOTO |; 
FOR !:=1 TO LENGTH(S) 00 
IF NOT (SEI] IN [’ ../9/]) THEN GOTO f; 
CXIT(CHECK) : ( STRING IS OK ) 
{: ZEROREC(REC) ; EXIT(VALIDATED ; 
END: ( CHECK ) 


BEGIN ( VALIDATE } 
WITH REC 00 
BEGIN 
CHECK (CLASS , CLASSLEND ; 
CHECK CHULLNO , HULLNOLEN) ; 
END; 
END; ( VALIDATE 3 


PROCEDURE SHOWREC(REC: SHIP) : 


SEGIN 
GOTOXY (8,2); CRTCERASEDS) ; 
WITH REC DO 
TP NOT BUILDING THEN 
BEGIN 
ARITELN( ‘Class: 7 CLASS) 
MRITELN(’Hull] no.: ’ RULLNO) ; 
ARITELN(’Max speed: * MAXSSPD) : 
WRITELNC’@ SAM: ” NSAM) ; 
ARITELN( ‘SAM Speed: tortor) 
ARITELN(’? SSM: Pa itecon): 
MRITELNC“SSM Speed: * ontSrD) $ 
END 
blo 
BEGIN 
WRITELN( ‘Class: : GEASS) : 
ARITELN( ‘Name: ” NAME) : 
WRITELN( Hu] 1] no.: ’ HULLNO) : 
WRITELN(’ Courses ’ SCOURSE) : 
ARITELN( ‘Speed: ’ ,SSPEED) ; 
WRITELN(‘’X Coordinate ‘ .xFOS): 
ARITELNC’Y Coordinate %,YPQS): 
ARITELN(’Max speed: * MAXSSP) $ 
MRITELNC’ 4 SAM: * \NSAM) s 
WRITELN(’SAM Speed: ’  SAMSFD) ; 
ARITELNC'S SSM: * NSSM) ; 
WRITELNC’SSM Speed: “;GanorD) 
END ; 
END: 


PROCEDURE CHANGEREC(VAR REC: SHIP; SSPOLEN MSPOLEN NMSLLEN .NAMELEN , SCOURSELEN, 


De 





RPUSLENTVRUSLEN = iNTEGER) 5 
BeSIN 
IF BUILDING THEN 
SEGIN 
GOTOXY (9, 15); CRTCERASEOS) : 
PROMPTAT(15,‘(Press return for no change) ’); 


EEGIN 
COTOXY (8, 12) 5 CRICERASEOS) ; 
PROMPTAT(12,‘(Press return for no chance) ’) 
END: 
WITH REC 00 
IF NOT SUILOING THEN 


SEGIN 
GOTOXY(2, 14) sWRITELN(’ ALL NUMERICAL INPUT ARE INTEGERS!! ‘) ; 
WRITE( ‘Cl ass: ‘): GETSTRING(CLASS,CLASSLEN) :  MRITELN; 


ARITE(’Hul) no.: “Ys GETSTRINGCHULLNO, HULLNOLEN) ; ARITELN: 
WRITE( ‘Max speed: “Ys GETINTEGER(MAXSSPD,SSPOLEN) sKRITELN; 


ARITEC’# SAM: ); GETINTEGER(NSAM NMSLLEN) SWRITELN; 
ARITE( ‘SAM Speed: ’); GETINTEGER(SAMSPD MSPOLEN) sWRITELN; 
ARITEC’S SSM: “); GETINTEGER(NSSM NMSLLEN) SWRITELN; 


WRITE(’SSM Speed: “); GETINTEGER(SSMSPD MSPOLEN) ;WRITELN; 
END 


EVSE 

BEGIN 
GOTOXY (8, 17) WRITELN(’ ALL NUMERICAL INPUT ARE INTEGERS!! %); 
WRITE( ‘Name: “): GETSTRING CNAME NAMELEN) 5 ARITELN: 
ARITE( ‘Course: L§-368 5): 
REPEAT 


GET INTEGER(SCOURSE , SCOURSELEN) ; 

UNTIL CSCOURSE <= 368) AND (SCOURSE 2= 2) sWRITELN; 
WRITE (’ Speed: (§-Maxspd) *)3 

REPEAT 

GETINTEGER(SSPEED, SSPOLEN) ; 

UNTIL (SSPEED 2= 9) AND (SSPEED (= MAXSSPD > sWRITELN: 
ARITE(’X Coordinate: (8-188) 1); 

REPEAT 

GETINTESER(XPOS ,APOSLEN) : 

INTILG XPOS 2=8) AND CXPOS (=166) ;HRITELN;: 
ARITEC‘’Y Coordinate: (8-{@6} %): 

REPEAT 

GETINTEGER(YPOS, /FOSLEN) ; 

UNTIL CYPOS >=8) AND CYPOS C= 188) ;WRITELN: 


3 
(| «CHANGEREC } 


PROCEDURE NEWFILE: 


De 





VAR SUDESSFUL: BOOLEAN: 
TREC MAXREC: INTEGER: 


EEGIN 
BUILDING:=FALSE; 
CLOSECDATAFILE LOCK); ¢ IN CASE IT’S ALREADY OPEN } 
eel -3) 
REPEAT 
GCTOXY (8,1) 3 CRICERASEDS) ; 
GOTOXY (8,2) ; 
WRITELNC ’ TMA Master datatile is : BLUEMASTER %); 
ARI TELNC ’ TMA Game datafile 15 +: SLUEGAME ‘); 
ARI TELN(/ For new database use different name. ’); 
PROMPTAT(S.’File Name: ’): RESDLN(FILENAME) ; 
RESETCDATAFILE FILENAME); ¢ TRY TO OPEN AN OLD FILE } 
SUCESSFUL s= CI QRESULT=) ; 
IF NOT SUCESSFUL THEN { START A NEN FILE? } 
BEGIN 
PROMPTAT(16,’Start a new file ? ‘); 
IF YES THEN 
SEGIN 
REMRI TEC DATAPILE FILENAME) ; 
PROMPTAT(12,’Reserve how many records ? ’); 
READLN(MAXREC) + 
SEEX(CATAPILE MAXREC) ; 
ZERCREC(DATAFILE*) ; 
(¥$]-%) 
PUT (DATAFILE) ; 
(X31+%) 
[F (TORESULT<D6) OR ECFCDATAFILED THEN 
EEGIN 
PROMPTAT( 14, ‘Not enough roam. Press return “); 
RESDLN ; 
SUCESSFUL :=FALSE : 
END 
ELSE 
BEGIN 
C INITIALIZE CONTENTS OF FILE 3 
FOR TREC:=8 TO MAKREC 00 
SESIN 
SEEK (DATAFILE , TREC) : 
PUT (DATAFILE) ; 
END; 
CLOSECDATAFILE LOCK); € LOCK IT IN PLACE } 
RESET (DATAFILE FILENAME) ; 
SUCESSFUL s= CIGRESULT = 8): 
END s 
END: 
ENDS 
Borie SUCESSFUL; 





(¥$1+%) 
RECNUM s=-1; 
LASTCHANGE :=FALSE: 
MENU: 

END; 


PROCEDURE CHANGE; 
SESIN 
(X$1-%) 
REPEAT 
PROMPTAT(2, ‘Change which record ? “); 
READLN( RECNUM) ; 
UNTIL [ORESULT=4; 
(31 +3) 
SEEK (DATAP ILE .RECNUM) ; 
GET (DATAFILED ; 
IF EGF(DATAFILE) THEN ( EXTENDING FILE } ZEROREC(DATArILE*) ; 
VALIDATE(DATAFILE*) 
SHOWREC (DATAFILE*) ; 
CHANGEREC (DATAFILE* ,SSPOLEN MSPOLEN MMSLLEN NAMELEN .SCOURSELEN, 
XPOSLEN . YPOSLEN) ; 
SEEX(DATAFILE ,RECNUM) ; 
($1-%) 
PUT (DATAPILE) ; 
(X$1+%) 
IF (JORESULT<2@) OR EOF(DATAFILE) THEN 
BEGIN 
GOTOXY (8,28) ; 
WRITELN(CHR(7) , “UNABLE TO EXTEND FILE, NO DATA WRITTEN’) ; 
WRITELN( “Use Filer x(runch command to make space after file.’); 
END; 
LAST CHANGE :=TRUE 
END: 


PROCEDURE VIEW: 
SEGIN 
(%$1-%) 
REPEAT 
PROIMPTAT(2,. View which record ? ’); 
RESOLN(RECNUM) ; 
INTIL [SRESULT=4: 
(£31 +%) 
SEEXCOATAFILE ,RECNUM) ; 
GET{DATAFILS) ; 
IF EGFCDATAFILE) THEN 
BEGIN 
GOTOXY (8.4); 
ARTTEC’ Record ’,ZECNUM,’ not in file’): 


oy, 





END 
ELSE 
BEGIN 
VALICATE(DATAFILE*) ; 
SHOMREC(DATAFILE*) ; 
CNO: 
LAST CHANGE :=FALSE ; 
ND; 


PROCEDURE NEXT; 
( VIEW OR CHANGE NEXT RECORD } 
SEGIN 
RECNUM :=RECNUM? 1; 
SEEK(DATAFILE ,RECHUMD ; 
BET CDATAFILED ; 
IF EQF(DATAFILE) THEN 
BEGIN 
ZEROREC(DATAFILE*) ; 
TF NOT LASTCHANGE THEN 
BEGIN 
GOTOXY (8,4): 
WRITEC Record ‘REGNUM,’ not in file.*);3 
Sal] (NEXT) : 
END; 
END; 
GOTOXY(8, 1): WRITEC’Recoerd number % ,RECNUM) ; 
VALIDATE(DATAFILE*) : 
SHONREC(DATAFILE*) ; 
IF LASTCHANGE TEEN 
SEGIN 
CHANGEREC (DATAFILE* ,SSPOLEN MSPOLEN NMSLLEN MAMELEN , SCOURSELEN, 
XPOSLEN, YPOSLEN) ; 
SEEX(DATAFILE ,RECNUM) ; 
(4$[-£) 
PUT (OATAFILED : 
(351+%) 
[F (LORESULT<38) OR ECFCDATAFILE) THEN 
BEGIN 
SOTOXY (8,28): 
ARI TELNCCAR(7) , “UNABLE TO EXTEND FILE, NO DATA ARITTEN’): 


ARITELN( “Use Filer <Cruncn command to nake soace after cile.?): 


ND; 


PROCEDURE INSTRUCTIONS; 


VAR 
CH : CHAR; 


Wa 
Or 





SEGIN 


ARITELNC’ MASTER TMA DATABASE EDITOR *); 

ARITELNs 

WRiTELNC This module of the program allows you (the user) to “); 
WRITELN(’  =-VIEN or CHANGE an existing data base. %); 

WRI TELNC ’ In addition you may create a new data base by using the %); 
WRITELN(’ = FILE command.‘): 

WRITELNs 


WRITELN( You begin by entering the FILE NAME of the data your ‘); 
WRITELNC ’ interested in or the FILE NAME of your NEW data base. ); 
HRITELN: 
ARI TELNG ’ For example: the ¢ile QRANGEMASTER contains the oresent “); 
ARI TELNC library of Orance shins in the Master TMA data base. °); 
ARITELN(’ Likewise, for the file SLUEHASTER. %); 
ARETELNS 
WRITELNs 
ARITELN 
WRITELN: 
ARITELN(‘ { HIT SPACEBAR TO CONTINUE > %); 
READ(KEYEDARD ,CH) ; 

END;  ¢ INSTRUCTIONS } 


PROCEDURE HELP; 
BEGIN 
GOTOXY(9 4); CRTCERASEDS) ; 
MRITELNC’ ¥ HELP =: Explanation of options % %); 
ARITELNs 
ARITELN(’ View : To look at the selected database ‘); 
WRITELN(’ C)hance : To change any/all elements of the selected database’); 
ARITELN(’ Next 3: To page forward to the next record ); 
WRITELNC’ Fiile : To close the tile being worked on and start another’); 
ARITELN(’ Return : To return to the master menu ‘): 
WRITELN(’ Help : To display this table of explanations “); 
ARITELN(’ Quit : To terminate the database manipulation nodule “) 
END; 


RESIN ( MAIN PROGRAM } 
CLOSE(BLUGAME LOC ; 
CLOSE(BLUMIST LOCH) : 
CLOSE(ORNGAME LOC) : 
CLOSE (ORNHIST LOCK) : 
CLOSE(ATIME LOCH) ; 
CASE2:= FALSE: 
INITELAG:=TRUE: 
GOTOXY(@,8) ; CRTCERASEGS) ; 
INSTRUCTIONS; 

NEWFILE: 
OBCALLED:=TRUE; 





REPEAT 
IF NOT SUILDING TKEN 
PRCHPTAT (8, ‘ODBMASTER: Ytiew, CChange, N(ext, Fdile. Afeturn, Delp, Muit” 
SESE 
PROMPTAT(@, “OOBBUILDER: View, Cthance, N(ext, Flile, Return, Help, GCuit’) ; 
Bee og ea Vy Gn Cg Pg Wg NO °Q"))' 
CRT (ERASEOS) ; 
CASE cH OF 
mo, nh: NRIs 
we, f° 27 NENFILE; 
my, v's VIEGAS 
“T’,’c’:s CHANGE: 
ee: -PENU: 
We hes HELP: 
END; 
UNTIL CH IN [°9’,’a7); 
CLOSE (DATAFILE LOCK) ; 
PROMPTAT(12,’FINISH DATA BASE MANIPULATION...%); 
END; 


SEGMENT PROCEDURE MATHFUNC; 


VAR 
INGEX: INTEGER; 
L: CHAR; 
FNAME: STRINGE 15); 
GNAME: STRINGE 19); 
GCOURSE ,SSPEED GX ,GY: REAL; 
SUCCESSFUL: SCOLEAN: 


PROCEDURE MSTART: 
VAR 
SUCCESSFUL: SOOLEAN; 
BESIN 
SUCCESSFUL :=TRUE: 
[F DECALLED THEN FNAME:=F TL ENAME 
EESE 
REFEAT 
DECALLED:=TRUE: 
GOTOXY (8,8) sCRTCERASEDS) : 
SOTOXY (8.2) 3 
IF NOT SUCCESSFUL THEN 
WRITELN(’ That File Name is not on this disk!! “)3 


WRITELN: 
ARITELN(’ MEMORY AVAILABLE IN WORDS: % MEMAVAIL) : 
WRITELN:ARITELN: 


WRITELN(’ Default TMA game file name is 3LUEGAME ’): 
WRITELN(’ If you have previously saved another game ‘); 
ARITELN(’ database you wish to use type that tile name in. ‘): 


oe: 





PROMPTAT(12,’ File Name: “) ;READLN(FNAME) | 
FILENAME :=FNANE ; 
(¥$1-%) 
SESET(DATAFILE FNAME); (TRY TO OPEN AN OLD FILE} 
SUCCESSFUL :=( [ORESULT=2) 5 
(¥$1 +3) 

UNTIL SUCCESSFUL; 

CLOSE(DATAFILE LOCK) 5 

END; 


PROCEDURE MINIT(VAR REC: SHIP) ; 


PROCEDURE TRANSFORM: 
VAR 
THOPI: REAL; 
BEGIN (€ TRANSFORM > 
TWOPT :=2.QXPI ; 
GX:= GXEE.83 
GY:= GY¥i.923 
GCOURSE :=GCOURSES (P1/ 198.8) § 
WHILE GCOURSE > TWOP! 00 
BEGIN 
GCOURSE = (GCOURSE - TWOP); 
END; 
END: ¢ TRANSFORM > 


PROCEDURE INITDISP; 
VAR X,Y: INTEGER; 
BEGIN ( INITDISP } 
PENCOLOR (NONE) ; 
X2=ROUND (GX) : 
Ys=ROUND(GY) ; 
MOVETOCX,Y) $ 
NUMBER (X,Y, INDEX) ; 
END: {¢ INITDISP } 


OROCEDURE SETARRAY: 

BEGIN ( SETARRAY } 
SCUST INDEX] :=GCOURSE; 
SSPD{ INDEX} :=GSPEED; 
AXYf 1, INOEX} :=0%; 
aXY12 , INDEX? :=07: 
BLUGANE* :=0% sPUT (BLUGAMED : 
SLUGAME* :=GY sPUT (ELUGAMED 5 
OLUHIST* :=GX sPUT(SLUHIST) 3 
SLUHIST* :=67 ;PUT(BLUHIST) ; 

END: { SETARRAY ) 


SEGIN ¢ INIT } 


oy, 





INITTURTLE; TEXTMODE; TEXT:s= TRUE; 
RECNLM:=4 
RESET(CATAPILE .PNAME) ; 
REWRITECBLUHIST, “#4:SLUEOLD ATA’? : 
REMRITE(BLUGAME, ‘A5:BLUENCH DATA’ ; 
WHILE (NOT EGFCDATAFILE)) AND (RECNUM ¢ 18) D0 SEGIN 
SEEK (DATAFILE , RECNUM) ; 
GET (DATAFILED ; 
WITH REC DO : 
IF (LENGTH(CLASS) > 1) AND (MAXSSPO > 8) THEN BEGIN 
INDEX s=RECNUM+ |; 
MAXBLUE := INDEX : 
GNAME :=NANE ; 
GCOURSE s=SCOURSE ; 
GSPEED s=SSPEED; 
GX :=XP0S; 
GY :=YPOS; 
TRANSFORM ; 
SETARRAY ; 
INITDISPs 
END; 
RECNUM :=RECNUM# 1; 
END; 
CLOSECDATAFILE .LOCK) ; 
CLOSE(SLUGAME .LOTK) ; 
BLUHIST*s= -9999; PUT(BLUHIST) : 
GRAFMODEs TEXT :=FALSE; 
SLUEMOVE s=8LUEMOVE + 1; 
CASEBA:=TRUE; 
BLFLAG:=TRUE: 
EXIT (MATHFUNC) ; 
END; (€ MINIT } 


PROCEDURE GETDATA: 
VAR J: INTEGER: 
SEGIN 
REAR ITECORNHIST, ‘44: 0RNGOLD.OATA’) : 
Ji=ls 
($]-) 
RESET (ORNGAME, ‘aS: ORNGNON DATA’) ; 
SUCCESSFUL:= CIGRESULT=4) ; 
IF NOT SUCCESSFUL THEN =XIT(GETDATAD : 
i ¥$[+%) 
AWHILE (NOT EGFCORNGANE)) AND (J <= 16) 00 SEGIN 
OXY£1,J] s=ORNGANE*s 
GET (ORNGAMED ; 
OXY £2 ,J] :=ORNGAME*: 
ORNHIST* s=OXY0 4.0]; PUT CORNHIST) ; 
ORNHIST* :=OXY{2,J33 PUTCORNHIST) ; 


JiaJ + f; 





ORNHIST* = -99993 PUT(ORNHIST) ; 
CLOSE (CRNGAME ,LOCK) ; 
END; 


PROCEDURE FIRSTMOVE; 
BEGIN { firstmove } 
CONTINUE :=TRUE; 
TEXTMODE; TEXT :=TRUE; 
SUCCESSFUL :=TRUE ; 
REARITECATIME, ‘44sTIME.DATA’) ; 
ATIME* s=TIMEs PUTCATIME) ; 
REPEAT 
GOTOXY(8,8) ; CRICERASEOS) ; 
GOTOXY(@, 3) ; 
ARITELN(’ '!' FOLLOA THESE INSTRUCTIONS [!! %); 
WRITELN: 
ARITELN: 
IF NOT SUCCESSFUL TKEN 
WRITELN(’ ¥ ERROR HAS OCCURED WHILE TRYING TO READ OATAFILE ON SISK 42 <7’) 
KRITELN 
WRITELNC’ 1. REMOVE GAME DISK FROM ORIVE 42 %); 
WRITELN; 
WRITELN(’ 2. EXCHANGE DISKS WITH OPPONENT ‘); 
NRITELNs 
WRITELN(’ 3. PLACE OPPONENT‘S UPDATED GAME DISK IN DRIVE 4 2 7); 
WRITELN; HRITELNS 
WRITELNC { PRESS RETURN WHEN READY > %): 
MRITELN sREADLN: 
SETDATA: 
UNTIL SUCCESSFUL; 
GRANGEMOVE :s=ORANGEMOVE + 1; 
BLFLAG:=TRUE: 
END; 


PROCEDURE MENLM; 

BEGIN 
TEXTHODE; TEXT:= TRUE; 
Mea A, a 4/5", 5’ 8’ ,’Q7)3 
GOTOXY (8 8) sCRT (ERASEDS) ; 
PROMPTAT(G,’> You have the following choices ’); 
SOTOXY (8,3); 
WRITELN(’ A) Return to DATABASE { for changes } ’); 
ARITELN(’ 8) Continue with the game’); 
ARITELN: 
ARITELN(’ Suit Clerminates orcoram) ‘); 
Ls=GETCHARCOKSET? ; 
CASE L OF 
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A’ fa’: CASE2S=TRUE; 
"BY b's FIRSTMOVE; 
fa, a: EXITOM); 
END s 
END; 


BEGIN { MATHPUNC } 
(¥$R TURTLEGRAPHICSS) 
(Z$R THESIS8%) 
CASE@ :=FALSE; 
TIME :=83 
IF NOT CASE@A THEN MSTART; 
IF NOT CASE@A THEN MINIT(DATAFILE*) ; 
CASESA :=FALSE; 
REPEST 
OKSET:={° 
Ls=GETCHARCOKSET + [CHR(27) ,CHR(S) .CHR(Z1) 2) ; 
IF L=CHR( 3) THEN L:=/D’s 
IF L=CHR(Z1) THEN L:=U'; 
CASE L OF 
‘U’ : BEGIN 
UPSCALE$ 
BLFLAG:=TRUE ; 
CASESAs=TRUES 
EXIT (MATHFUNC) 5 
oNO 
op 6: SEGIN 
DORNSCALE ; 
BLFLAG:=TRUE; 
CASE@AS=TRUE : 
EXIT T(MATHFUNC) ; 
END; 
‘ * 3 BEGIN 
RCTRFLAG:=TRUE; 


CASEGA:=TRUE: 
EXIT (CMATHFUNC) ; 
SND 5 
eNO; 
UNTIL L = CHR(27) ; 
MENUM s 
ND: 


SEGMENT PROCEDURE MOTICN; 


MPLAGI: SCOLCAN;: 


PROCEDURE OISTSPOCDX.DY: REAL:SVAR DIST,SFD: REAL; 
GEGIN 

DIST:= SGRT(SGR(DX) + SORCDY)) ; 

SPO:= OIST / DELTAT = 48: 
end; 





FUNCTION OEGREES(OX,DY: EAL) : INTEGER; 
CONST ERR = 9.281; 
VAR VALUE: INTEGERS 
SEGIN 
TF (OX < (OtERR)) AND (DX > (O-ERR)) THEN BEGIN 
IF (DY ¢ (84ERR)) AND (DY > (8-ERR)) THEN CEGREES := 4; 


IF DY > 8 THEN DEGREES := 183 
IF OY € @ THEN DEGREES := 248; 
EXIT(DEGREES) : 
SND; 
[F (DY ¢ (94ERR)) AND (CY > (O-ERR)) THEN SEGIN 
IF OX > @ THEN CEGREES := 279; 
IF OX ¢ 9 THEN DEGREES := 390: 
EXIT(DEGREES) : 
cND: 


VALUE := XOUND(198 / PI = ATAN (OX/DY)): 
IF 485 (VALUE) (> VALUE THEN SEGIN 
IF OX < 2 THEN OEGREES:= 186 + UALUE: 
IF DX > 2 THEN DEGREES:= 348 + VALUE: 
END 
ELSE EEGIN 
IF OX > @ THEN DEGREES:= {83 + VALUE; 
IF OX ¢ @ TREN CEGREES:= VALUE; 
END; 
END; 


PROCEDURE DISPLAY; 
VAR J,A.Y: INTEGER; 
SEGIN 

PENCOLOR(NONED ; 

FOR Ji= 1 TO MAXELUE 00 3EGIN 
A2=ROUNDCCEXYE 1, GI-XCTR) /SCALED + 148s 
¥ ?=RGUND(CBXY(2,J]-1CTR) / SCALED +96: 
MOVETO(X,Y) 3 
ORAWBLOCK (SHIPFIG,2,9.9.7,3.4.7, 18) § 
NUMBER (XY, J) 3 

END; 

FOR J:=1 TQ MAXORANGE 50 SEGIN 
<:=ROUND( COXY( 1.0] -4CTR) /SCALE) + £43; 
Ys=RCUNDCCOXY{2, 5]-YCTR) /SCALE) +963 
MOVETOCK.Y) 

DRAWBLOCK (SHIPFIG,2.0,.8.7,3.4.7,0) $ 
BS MERCA,Y 4d): 
SND; 
GRAFMODE TEXT :=FALSE: 
=ND; 


PROCEDURE YOURSIDE<TGT: CHAR;VAR X,Y: INTEGER) ; 
VAR us INTESER: 


Or 
Od 





Aa t? REALS 
PEGIN 
J:=ORD(TGT) -ORDC‘8") ; 
JisJtl3 
AXs=ROUNDCEXYC 1 ul): 


Y:=ROUND(SXYI2.d)) 3 
cND; 


PROCEDURE OTHERSIDECTGT: CHAR;VAR X,Y: INTEGER) ; 
VAR J: INTEGER: 
AX YY: REALS 
RESIN 
IF T6Y iN (%a°..°3°3 THEN Ss=ORDCTGET)-ORD(‘a’) ELSE 
Js=ORDCTGT) -CRDC A’) ; 
Js=J+ 1; 
X=ROUNDCOXYE 1 U0) § 
Y:=ROUNDCOXY(2 U0) 
END: 


PROCEDURE RANGE; 
VAR 
Pemads) 1,¥2,D151.X,%.1: INTEGER: 
DISTANCE ,DELTAX ,CELTAY: REAL: 
TARGET 1, TARGET2: CHAR: 
SEGIN 
A3=8 37:28; 
GRAFMODE: TEXT:=FALSE; 
Meme 1 8 6 8! A eS 8 oe SDS 
PENCOLUR(WHITED ; 
BOXSTRING(3,.2,’ RANGE: LETTER / NUMBER OF IST SHIP ‘); 
TARGET i :=5ETCHARCCKSED 5 
IF TARGET] INES’... °9’ JTHEN YCURSIDECTARGET 1.X,QELSE OTHERSIDEC TARGET ! X.Y) 
Alex, Yiis7s 
POXSTRING(S.2,° RANGE: LETTER / NUMBER OF ZNO SHIP ‘): 
TARGET 2 s=OETCHAR(OKSET) + 
CLEARBOX ; 
IF TARGET2 INE’8’../9° THEN YOURSIDE (TARGET? .X.1) 
ELSE OTRERSIDEC TARGET? .<,Y) $ 
Aes=4he 723273 
Mes Ac ~ Als JEMTAY:= {2 - YI: 


DIST :=ROUND (DISTANCE) : 
X1:=ROUND((X1-XCTR) /SCALEZ) + 148s 
¥ { s=ROUND( CY 1-7CTR) /SCALED +94: 
MOVETOCXI 1): 

PENCOLOR(HHITED : 

X2:=ROUND ((X2-XCTR) /SCALE) + 148: 
Y¥2s=RQUND ((Y2-¥CTR) /SCALE) +95: 
MOVETO(X2.12) : 

PENCOLOR(NONE) : 


O4 





FOR I:= 1 TO 208@ 00 BEGIN 


siti: 
END: 
GOTOXY (9 , 9) ; 
GOTOKY (8,4) ; 
WRI TELN(/ 
NRITELN 
WRITELN( ’ 


CRT (ERASEDS) 5 


The distance from “,TARGET1,’ to ‘ TARGET2,’ 15 : 


‘DIST,’ MILES! “); 


WRITELNWRI TEEN SWRITELN: 


ARITELN( 


€ PRESS RETURN TO CONTINUE > = ‘); 


TEATMODE s TEXT :=TRUE ; 


XEADLN § 
END; 


PROCEDURE INTERRCGATE; 
VAR COURSE X,Y, 7GT s INTEGERS 
TARGET: CHAR; 


$P0 DX, DY, 


DIST: REAL: 


PROCEDURE MESSAGE? ; 


SEGIN 
GOTOXY (8 9) $ 
SOTOXY (8,3); 
ARETELNC / 
ARITELNS 
ARITELN( 


ARTTELN WRIT 


WRITELNC’ 


CRT (ERASEOS) 5 


The course and speed of ship 4 “, TARGET,’ is : 


’ COURSE,’ Degrees ‘° ,ROUND(SPD) ,’ <nots %); 


ELN:WRITELN: 
( PRESS RETURN TO CONTINUE > ‘); 


TOATMODE :TEAT s=TRUE: 


READLA; 
END; 


PROCEDURE MESSAGE! 


SEGIN 


TECTHODE: TEXT:= TRUE: 


GOTAXY(9.2) ; 
GOTOXY (8 , 5); 
ART TELN( ‘ 


CAT{ESASENS) ; 


Not enough data to comoute course / speed *); 


ARITELNNRITELN SARI TELNS 


ART TELNC(‘ C PRESS RETURN TO CONTINUE > “): 
READLN: 
EXTT CINTERROGATE) ; 

END: 


sESIN ( interrogate } 
[Ff QRANGEMOVE <= 1 THEN MESSAGE! 


A=@3 73285 


ONSET s=( ‘9’. 


SRAFMODEs 7 
SOXSTRING(3, 


fof fAé fet fal Sees 
oes U a does J 15 


r:=FOLSE: 


wt hes 9 


2, iNTERR: ENTER LETTER / NUMBER OF SHIP *); 


Oe 





TARGET s=GETCHAR (CKSET) : 

CLEARBOX + 

IF TARGET IN (73%..°9°3 THEN BEGIN 
TGT:=O8D(TARGET) - CROCS); 
TGT s=TGT + {3 
OX:=0LDSXY{1, 7ST] - SXYC1,7GT); 
DY s=OLDEXY(2,TGT] - SxY£2,2GT); 
ED 

ELSE SEGIN 
IF TARGET IN [%3%..°j’] THEN TGTs=ORDC TARGET) -ORD(‘ a’) 

TOT :=OROCTARGET) - CROC’A’); 

TGTs=T6T + 13 
DXs=OLDOXY(1.TGT] - OXYL1, TOT); 
DY s=OLDGXY{2,TGT} - OXY{2,TGT); 

END: 

OX:=0X / 2.83 

Or.-oi / 1.72% 

TEATMODE; TEXT :=TRUEs 

COURSE :=0ESREES(DX DY) : 

DISTSPOCOX OY DIST SPO) : 

MESSAGE? 

END; 


PROCEDURE STARTIT: 
SEGIN 
IF SRAFFLAG THEN EEGIN 
GRAFMODE ; 
TEAT :=FALSE: 
SRAFFLAG :=FAL SE; 
END 
ELSE BEGIN 
TEXTMOCE : 
TEXT s=TRUE: 
END 
END: 


PROCESURE STOPIT: 

SESIN 
RRFLAGS=FAL SE; 
TEXTHODEs TEXT s=FRUE; 
QUITFLAG :=TRUE; 
cx.) (MOTION) ; 

END: 


PROCEDURE MENU: 
WAR 

CH: CHAR: 
SEGIN 

STARTIT: 

REPEAT 





eat A am 3 .. f’, 8",°9' I 
GOTGXY (9,4) sCRTCERASEDS) ; 
GOTOXY (8,3) ; 
WRITELN(’ A) Advance to next time-step %); 
WRITELN(’ B) Draw ranoe circle around a specified unit °); 
ARITELN(’ C) Compute range between units ‘); 
WRITELN(’ 0) Oetermine CPA ¢ CLOSEST POINT UF APPROACH BETHEEN UNITS 3°); 
ARITELN(’ £) Comoute and display Course and Speed of units “); 
WRITELN(’ F) Check / Change movements of aumit %; 
MRITELN(’ G) Compute Intercept from one unit to another ‘); 
ARITELN(’ HD) Clear screen ‘); 
WRITELNs 
WRITELNC’ @) QUIT THE TMA 7R0GRAM %); 
ARITELN 
ARITELN(’ i<-] Downecale dispiav “); 
ARITELN(’ [-)] Upscale display ‘); 
WRITELN( ‘“Cspace) Recenters disolay ‘): 
ARITELNC‘CESC) «feagies display tetween text and craphics %); 
CHs=GETCHAR(CKSET+ (CHR(27) ,.CHR(S) ,CHR(Z1) ,CHR(22) 2) ; 
CRT (ERASEGS) : 
IF CHECHR(3) THEN CHs=’R’s ( left arrow > reduce scale } 
TF CHECHR(2!) TREN CH:=’I’; { richt arrow > increase scale ) 
LF (CH=CRR(27)) AND (TEXT) THEN PEGIN 
GRAPMOODE : 
TEXT :=FALSEs 
Gas 2’ 
END 
ELSE [F (CA=CHR(27)) AND (NOT TEXT) THEN 3EGIN 
TEXTMODE s 
TEXT :=TRUE s 
ena’ 2's 
eND § 
CASE CH OF 
oa, a: SEGIN 
TPLAGS:=TRUES 
EXT TCMOT ION) s 
END 
73,4: ZEGIN 
TELEG? ISTRUES 
EXT T (MOTION) 3 
END: 
Be, cit) RANG: 
swede: SEGIN 
TFLAGSs=T RUE 
S<TTCMOTION) : 
ND; 
7e’,’2’:s INTERROGATEs 
oa + +> SEGIN 
TFLAGL:=TQUE: 
EXIT MOTION) : 





END; 
“ao: GEOIN 
ICPTFLAG :=TRUE s 
SLFLAG:=TRUE s 
TFLAG2 s=T RUE; 
EXT TCMOTION) : 
END: 
OH oh’: BEGIN 
INI TTURTLEs 
SLFLAG:=TRLE; 
CONTINUE s=TRUEs 
EXIT(MOTION) ; 
END: 
aR” : §€&GIN 
DCHNSCALE : 
SLFLAGs=TRUE; 
TFLAG2 :=TRUE ; 
EXITCMOTICND s 
END; 
L” : BSEGIN 
UPSCALE s 
BLFLAG:=TRUE; 
TFLAG2 :=TRUE ; 
EXIT (MOTION) ; 
“ND; 
a : SESIN 
RCTRFLAG:=TRUE : 
TFLAG2 s=TRUEs 
EXIT (MOTI CN) ; 
eND: 
END; 
Oe (CH= “8°) OR (CH = “1’) OR (CH =’ *) THEN GRAFMODE: 
mit CH IN t ’O’,‘q’ J; 
STOPIT 
cND: 


SEGIN ¢ moticn } 

C2$R TURTLEGRAPHI CS) 

(3$R THES! S8X) 

(¥$R TRANSCENDS) 
LF CTPLAGS) OR CCONTINUE) THEN DISPLAY; 
CONTINUE :=FSLSE : 
TFLAG2:=FALSEs 
TFLAG4 :=FALSE: 
TFLAGS :=FALSE: 
MENU: 

END: 


SEGMENT PROCEDUSE CIRCLE; 





PROCEDURE CIRCPART: 

VAR 
X70 NX NY, 1 RANGE @ANGELEN: 
QX RY RADIUS, FEETA: REAL: 
TARGET: CHAR; 
DOT: SCOLEAN: 


INTEGER; 


PROCEDURE YOURSIDE(TGT: CHARsVAR X,Y: 
VAR J: INTEGER: 
REGIN 
Js=ORD(TGT) -ORD( 9%) : 
Jt =J+!: 
X:=ROUND((BXY£ 1. 02-XCTR) /SCALED + 148; 
Y s=ROUND (CBX £2, J]-/CTR) /STALED +964; 
END: 


INTEGER) ; 


PROCEDURE OTHERSIDE(TST: CHARSYAR X,7: 
VAR J: INTEGER: 
SEGiN 
IF TGT IN [’a°..°37] THEN J:=ORD(TGT) -ORD(’ 3%) ELSE 
each 106 a): 
JsaJt!s 
A=ROUNDCCOXYE 1, J2-XCTR) /SCALED + 148: 
¥:=ROUND( (OXY(2,J]-1CTR) /SCALED +96: 
Gnd 


INTESER) ; 


SEGIN ¢ circlepart ) 
CX$R TURTLEGRAPHICSX) 
(¥#R TRANSCENDS) 

($$R THESIS@) 
TFLAG?:=FALSE: 
TFLAG2Z:=TRUE; 

COT :=TRUE: 
SPNGELEN:=3: 

GRAFMODE; TEXT:=fALSE: 
Braces ( 3m", 79" ,/A’.. 
PONCOLGR(WHITED : 
BOXSTRING(3.2,’ CIRCLE: 
TARGET s=5ETCHAR(OKSET) : 


rs fal f 


3 oy 4 s8 


if ye 
¥o43 


ENTER LETTER/NUMSER OF ORIGIN ° 


ir tamGer IN [’9’, 


ee ePRULE: 


SS hae 
e a 


else JTHERSIOECTARGET 


THEN YOURSICECTARGET 4,0 
hale H 
ENTER DESIRED RANGE OF UIRClLs %): 


SELINTEGER (RANGE ,RANGELEN) : 


CLESRBOX ; 
SADIUS :=RANGE ; 
MOVETOCK.Y) 


FOR f:= 1 TO 189 90 BEGIN 


TRETAL=8 AZ 1SPI; 


SK =(RADIUSEZ. Ce A)/SCALE+A) 3 


XY :S(RADIUSE | 


esos 


META) /SCALE+ Y) : : 





NXs=RCUND (XX): 
NY:=RGUND (RY): 
ORANBLOCK (GOT, 1.8,8,1, 1X NY, 59) 5 
MOVETOCK 1) ; 
END; 
END; 


PROCEDURE ADV IPART; 
VAR TESTVALUE: REAL; 


PROCEDURE MOVEIT; 


PROCEDURE MSG8; 
SEGIN 
GOTOXY (8,8): CRTCERASEGS) ; SOTOXY(8,2) ; 
WRITELN(’ <¢ THE RERUN PORTION OF THA [S TERMINATED > ‘D3 
ARITELN 
WRITELN( NO MORE OATA cXISTS ON FILE 7’); 
ARITELN: 
WRITELN(’ = THANK-YOU FOR PLAYING TMA -- = PRESS RETURN TO CONTINUE 
TEXIMODEs TEXT :=TRUE; 
READLN : 
TFLAGS:=FALSE s 
RRFLAG:=FALSE ; 
QUITFLAG s=TRUE ; 
EXTT(CIRCLE) 3 
END 


PROCEDURE SETELUE: 
VAR J: INTEGER: 
BEGIN 
Jisly 
TESTVALUE :=4; 
AHILE (NOT EQFCBLUHIST)> AND (TESTVALUE > -999) 30 SEGIN 
GET CELURIS)) ¢ 
TF SOF CSLUHIST) THEN MSG8; 
iF J > 18 THEN EXIT(SETBLUED ; 
iF TESTVALUE ¢ -999 THEN EXIT (GETBLUED s 
OLOBKY{ L.uds= IXVC1,0]3 
Bettis s=oLUHIST*: 
GETCSLUHIST) ; 
OECEXY(2 Ji:= 3XY{2,J); 
SXY{2,J]:=8LUHIST*s 
JisJ + 13 
MRABLUE:= J - 1; 
END: 
END: 


PROCEDURE GETORANGE: 
UR J: INTEGER; 
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SEGIN 


gi=]3 

TESTVALUE :=4 

AHILE (NOT EQF(CRNHIST)) SND (TESTVALUE > -?99) 00 SEGIN 
GETCCRNHIST) ; 


IF EGFCORNHIST) THEN S68; 
IF J > 18 THEN EXIT(GETORANGE) ; 
TF TESTVALUE ( -599 THEN SXIT(GETORANGE) ; 
OLDOXY{1.J}:= OXYLi,d); 
OXY(1,J):=QRNAIST*: 
GET(QRNHIST) : 
OLDOXY(2,J]:= OXY(2,J]; 
OXY(2, J] s=CRNHIST*; 
JsaJ + $3 
MAXOREANGE = J - 1; 

END; 

END; 


SEGIN { movait } 
GETBLUE; 
SLUEMOVE s=BLLEMOVE + 1; 
GETGRANGE ; 
ORANGEMOVE s=ORANGENOVE + 1; 
TPLAGS:=TRUE; 
GRAFFLAG:=TRUE ; 
GETCATIME) ; 
JELTAT :=ATINE* 
TIMEs=TIME + OELTATS 
SLFLAGs=TRUE: 
cATT(ADVIPART 5 

END: 


PROCESURE MENU; 
VAR 
CH: CHAR: 
ZEGIN 
IF GRAFFLAG TKEN BEGIN 
GRAFMODE : 
TEAT:= FALSE: 
SND 
ELSE SEGIN 
TEXTMODE : 
TEAT :=TRUE: 
END: 
REPEAT 
Seen =( 7A,’ a’ 0’ ,’q’): 
GOT OXY (8 8) sCaT CERASECS) ; 
GOTOXY (8,5) ; 
ARITELN(’ A) Advance: move shios to new positions based on time-steo’): 
ARITEEN(’ 0) Guit 3 return to orcoram*s outer ieval %); 
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ARI TELNSHRITELNSWRITELNS 
BRITELNC’ 3334 «USe "ESC" KEY TO TOGGLE SETWEEN TEXT AND SRAPHICS 22% 
CH:=GETCHARCOKSET+ [CHR(27) ,CHR(S) ,CHRCZ1) CRR(ZD JD); 
CRTCERASEDS) ; 
IF CH=CHR(3) THEN CH:=’R’; { left arrow > reduce scale } 
TF CHecER(21) TREN CH="; ( right arrow > increase scale } 
TF (CHECHR(27)) AND (TEXT)* THEN BEGIN 
GRAFMOCE: TEXT:=FALSE; 
CH:=/2'; 
END: 
IF (CHECHR(27)) AND (NOT TEXT) THEN 8ESIN 
TEXTHODEs TEXT s=TRUES 
min’ 2’: 
END; 
CASE CH OF 
gaa a + MOVEIT: 
AY : GEGIN 
DOANSCALE : 
OLFLAG:=TRUE: 
TFLAGS :=TRUEs 
EXT TCADVIPART) ; 
END; 
" : BEGIN 
UPSCALE ; 
SLFLAG:=TRUE; 
TFLAGS:=TRUE: 
EXT T CADVIPART) 
END; 
* : BEGIN 
RCTRFLAGs=TRUE: 
TFLAGS :=TRUE : 
EXT TCADV PART) 
END; 
END; 
Peeverm—een JOR (Cd = “1°) GR (Ca =’ “) THEN BEGIN 
GRAFMODE; TEXT:= “ALSE: 
ND; 
weit, CH IN [ 79’,’a’ 3: 
TEXTMOQDE: TEXT :=TRUE: 
TFLAGS s=TRUE ; 
eND; ( neny } 


SEGIN € advipart 3 

C23R TURTLEGRAPHICSE) 

(Z$R THESIS@S) 
TESTVALUE :=4 
TFLAGS s=FALSE s 
MENT: 

END: ( adv! } 


~ 





BEGIN { case } 
IF TPLAG? THEN CIRCPART: 
TF TFLAGS THEN ADVIPART; 
ENDs 
SEGYENT PROCEDURE ADVANCE ; 
VAR TGT: INTEGER; 


PROCEDURE MOVEIT; 

VAR i,DELTATLEN: INTEGER; 
MEWX NEWY: PACKED gi [41..10] OF REAL: 
SUCCESSFUL: BOULE: 
BREED: REAL; 


PROCEDURE GETDATA; 
VAR J: INTEGER: 
SEGIN 
Jie; 
(¥$1-3) 
RESET ¢ORNGAME, ‘#5: C8NGNGH. DATA’) ; 
SUCCESSFUL:= (IORESULT=4) ; 
IF NOT SUCCESSFUL THEN EXIT(GETDATA) ; 
(X$[+%) 
AHILE (NOT EQF(CRNGAME)) AND (J <= 18) 00 SEGIN 
OLOOKYi 2, J):= OXYC1, Jd]; 
OXY 0] s=ORNGAME*; 
ORNHIST* s=OXY01.0); PUTCCRNHISD ; 
GET (CRNGAME) ; 
OLDOKY(2 J]s= OXY{2,J]; 
OXTL2 37 s=CRNGAME* 
DRNHIST* :=OXY¥(2,J93 PUTCORNHIST) ; 
SET (ORNGAME) ; 
JisJ + 13 
END: 
MAKORANGE:= J - 1; 
CLOSE (CRNGSME ,LOCK) ; 
GRNHIST*:s= -97999; OUT (ORNHIST) : 
END; 


PROCEDURE CHNGDISK: 
SEGIN 
SUCCESSFUL = TRUE; 
REPEAT 
TEXTMODE: TEXT:= FRUEs 
GOTOXY(3 4); CRTCERASEOS) ; 
GOTOXY (9,3) 5 
WRITELN(’ !!! FOLLOM THESE INSTRUCTIONS '!! %); 
ARI TELN: 
WRITELN: 
TPONGT SUCCESSFUL THEN 
WRITELN(’S ERROR SAS OCCURED AHILE TRYING TO READ OATAFILE CN DISK #2 
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wee 





ARITELNs 
ARITELN(’ 1. REMOVE GAME DISK FROM ORIVE #2 9; 
WRITELNs 
WRITELN(’ 2. EXCHANGE DISKS WITH OPPONENT “); 
ARITELNs 
WRITELN(’ 3. PLACE OPPONENT*S UPDATED SAME DISK IN DRIVE 42 ‘); 
WRITELNS 
ARTTELNC/ € PRESS RETURN WHEN READY > 7); 
WRITELN sREADLN 
GETDATAs 

UNTIL SUCCESSFUL: 

ORANGEMOVE :s=ORANGEMOVE + 1; 

SLUEMOVE s=BLUENUVE + 1; 

END: 


SEGIN { moveit } 
TEXTMODE s TEXT s=TRUE: 
CELTATLEN:=2; 
GOTOXY (8,4) sCRT(ERASESS) ; 
GOTOXY (8,2); 
ARITELN: 
ARITELN(’ center desired time step ( DELTA T 3 for the first move.‘); 
WRITELNS 
ARITEC‘ in minutes (8 -- 99): “) sGETINTEGERCDELTAT GELTATLEN) ; 
WRITELN: 
[F OLDGAME THEN REWRITECATIME, “84: TIME.OATA’) ; 
LOGAME :=FALSE: 
ATIME*s=DELTAT; PUTCATIMED : 
SBARITECBLUGAME, “85: SLUENGH.DATA’) ; 
FOR I:= 1 70 MAXBLUE 00 SEGIN 
SPEED :=9SFOL 1 ¥(CELTAT/ $8.) ; 
NEWX{T ] :=8XY01,1]+(SPEEDE2. SESIN(GCUSII}>) 
OLDBXYC1,.33= SAYCI,1]s 
BKYL1,I]:= NEWK{1); 
GLUGAME* s=NEMK(T) sPUTCOLUGANE) ; 
BLUHIST* s=NEWXE 1] sPUTCBLUHIST) : 
NeAY (1) s=8XYf2 Li +¢SPEEDEL. P2¥COS(GCUSE I) s 
moon; 12 ,8):= SXY(2,1); 
Bee = “EAY(i): 
SLUGAME* s=NEMY(1) :PUT(BLUGAMED : 
ELUHIST* s=NEMYCT] sPUTCBLURIST) ; 
ND: 
SLUHIST* 22-9999: PUTCOLUHIST) s 
CLOSE (BLUGAME .LOCK) ; 
CHNGOI SK: 
TFLAGS :=TRUE; 
SRAFFLAG :=TRUE: 
TIME:=TIME + OE. TAT; 
BLFLAG:=TRUE:; 
EXT TSADVANCE) : 


qe 





END: 


PROCEDURE CHNGDATA(!: INTEGER) : 
VAR SPD.SPOLEN,CUS,CUSLEN: INTESER; 


SEGIN 
SPOLEN:=2; 
CUSLEN:=3; 
CUS s=ROUND(GCUSE I] ¥ tsa / PD; 
SPD :=ROUND(GSPOLT]) ; 


WRITELNSWRITELN: 
ARITELN(’ ALL NUMERICAL INPUT IS INTESER!! 4) 
WRITELN: 
WRITE(’ Courses (8-268) %); 
REPEAT 
SET INTEGER (CUS ,CUSLEN) ; 


UNTIL (CUS >= 8) AND (CUS <= 268); ARITELN; 
BCUSEI]:= CUS % PI / 188; 
WRITE(’ Speed : {8-48} 4) 5 
REPEAT 
GET INTEGER(SFO,SPDLEN) ; 
UNTIL (SPD >= 8) AND (SPD <= 48); HWRITELN; 
@erulil:= SP); 
END; 


PROCEDURE SHONDATACI: INTEGER) ; 
VAR YESNO: SETOFCHAR; 
ANS: = CHAR: 
FEGIN 
Seamer 1, yy’, Nn’): 
TEXTMODE; TEXT:= TRUE: 
GOTOXY (2,3); CRTCERASEDS) ; 
GOTGRY (8,3) 5 
WRITEC’ Ship #  : “) wARITECI-!) sWRITELN; 
ARITEC’ & Coordinate: ’) sWRITECROUND(BXYE 1,13 / 2.3 3); 
ARITELN(’ mies %): 
ARITE(’ Y Coordinate: °) WARITECROUND(SXY(2.72 / 1.22 333 
ARTTELN(’ mites %)3 
ARITEC’ Course s “)sHRITECROUND(GCUSIT] 2 188 / PI); 
ARITELN(’ cegrses “): 
ARITE(’ Soeed ¢ “) ARITSCROUNDCSSPOLT) )); 
WRITELNC’ “nots *); 
ART TcLNSARITELN: 


ARITEC Any chanoes (Y/N) ? “oO SANS:= GETCHARCYESNO + [CHRCIS) 2) SWRITELN: 
ir (ANS = “¢’) OR CANS = “y’) TEEN CHNGDATACT) ; 
END; 


PROCEDURE MODALL: 
SESIN 
TEXTMODE: TEXTs= TRUE: 


D 





FOR TST:=1 TO MAXBLUE DO SEGIN 
SHOMDATACTGT? 3 
END; 
END; 


PROCEDURE MODONE ; 
VAR TGOTLEN: INTEGER; 
BEGIN 
TEXTMODE: TEXT:= TRUE; 
TGTLEN:=13 
GOTOXY(@ 8); CRICERASECS) : 
GOTOXY(3 2) ; 
ARITELN( / enter number of shio whose oarameters you wish to change ‘); 
ARITELN(’ (357) 
REPEAT 
GET INTEGER(TGT ,TSTLEND 5 
ANTIL (TOT 9= 3) AND CTGT <= 9); 
WRITELN: 
SHEWDATACTGT+ 1) : 
END: 


PROCEDURE VIEMIT: 
VAR 
CHEeErAR: 
SEGIN 
TEXTMODE; TEXT:=TRUE; 
REPEAT 
mcom=| fh ,. B,’3’..°d’ , 9’ ,’9"3;3 
GOTOXY (3,9) sCRTCERASECS) : 
GOTOXY (8.3): 
ART TELN SARI TELNSWRITELNSWRITELNS 
WRITELN(’ A) View / Modify all ships’ parameters ‘); 
ARITELN(’ §) View / Modify one ship's oarameters °); 
WRITELN(’ 9) Quit : seturn to orevious nenu “%)3 
WRITELNSHRITELNSARITELN: 
WRITELNC’ €2%¢ USE “ESC* XEY TQ TOGGLE SETWEEN TEXT AND GRAPHICS >x2% %): 
PH:=GETCHARCOKSET+ [CHR(27) }): 
CRICERASEOS) : 
TF CCHECHR(27)) AND (TEXT) THEN 2EGIN 
SRAFMODE: TEXT:=FALSE: 
Gass" 2°} 
=NO 
cLSE fF (CHECHR(27)) AND (NOT TEXT) THEN BESIN 
TEXTMCDE; TEXT:=TRUE; 
Wae= 2" 3 
NOs 
CASE CH OF 
mA,’ a’: SSODALL: 
cs ,. 2°: MEDGiE: 
END: 
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mil CH iN { °Q’,'q? 33 
ENOs 38€ viewit 3} 


PROCEDURE MENU; 
VAR 
CH: CHAR; 
SEGIN 
iF SRAFFLAG THEN SEGIN 
GRAFMODE: TEXT :=FALSEs 
GRAFFLAG:=FALSEs 
END 
ELSE SEGIN 
TEATMODE: TEXTs=TRUE: 
END: 
REPEAT 
Meoeeeewn ..°8°,’a'..b’, 9’ ,/9'); 
GOTOXY (8,3) sC&T (ERASEOS) : 
GOTOXY (8,3) 3 
WRITELN(’ A) View : present ship positions, courses, and speeds “): 
ARITELN(’ 8B) Acvance: move ships to new positions bated on time-step’); 
WRITELN(’ 9) Guit  : return to orcoram’s outer lewel “); 
WAI TELN SWRI TELN sWRITELNS 
WRITELN(’ £224 USE ‘ESC’ KEY 70 TOGGLE SETWEEN TEXT AND GRAPHICS >4k% 
CHs=GETCRARCOKSET+ CCERC27) ,CER(S) ,CHR(21) ,CHR(SD 1): 
CRTCERASEDS) ; 
IF CH=CHR(S) THEN C4:2’R’s { lett arrow > reduce scale } 
TP CH=CHR(21) TREN CH:=’f'; ( right arrow > increase scale } 
IF (CHECHR(27)) AND (TEXT) THEN GEGIN 
GRAFMCDEs TEXT:=FALSEs 
ae 3 
END 
eLSE IF (CH=CHR(27)) AND (NOT TEXT) THEN SEGIN 
TEXTMODEs TEXTs=TRUES 
Onis=2": 
END; 
CASE CH OF 
oe at (VIENTT: 
ob: «xMOVEIT: 
Ane : GESIN 
DCANSCALE 
SLPLaGs=TRUE: 
TFLAGS :S TRUE $ 
TFLAGS :=FALSE: 
EXIT (ADVANCE) ; 
END s 
aa : SEGIN 
CPSGALE s 
SLFLAG:=TRUE: 
TFLAGSs=TRUE: 
TFLAGS :=FALSE : 





EXIT (ADVANCE) 3 
END ; 
a : 5EGIN 
SCTRFLAG s=TRUE; 
TFLAGS :=TRUE: 
TPLAGS :=FALSE : 
EXIT (ADVANCE) : 
END; 
END: 
Peete = “8") OR (CH = °1°) GR CCH =’ *) THEN BEGIN 
GRAFMODE; TEXT:= FALSE; 
END; 
pe, CH IN [ ‘0’,’a’ J; 
TEXTMODE; TEXT :=7RUE; 
TELAGS =TRUES 
EXIT ADVANCED ; 
END: ¢ menu } 


BEGIN { advance } 
(X$R TURTLEGRAPHICSS) 
(3$R TRANSCEND) 
((¥$R TRESISAX) } 
TFLAGS S=FALSE s 
TFLAGS:=TRUE: 
MENU: 
END: ({ advance 3} 
SEGMENT PROCEDURE CPA; 
VAR TARGETI.TARGET2: CHAR; 
pate Al 1.111,0X1 DY1 482,792,412. 412. 0X2, D¥2: REAL: 
BEARING COURSE! .COURSE2 GTi [STZ Axi AX2, V1, 72: INTEGER: 
Ori WAL Vad VY i, VY2.CUS1 ,CUS2,7: EAL: 
DIST DENOM,5P01,5P02 DK, DY VX OV: REAL: 


PROCEDURE SFEEDCOX.DY: REAL;VAR SPO: REAL) ; 
SEGIN 

DIST s=SGRT(SGRCOX) + SaRCDY)) ; 

SFO:= DIST / JELTAT = 68; 
END 


FUNCTION SEGREES(DX,OY: REAL) : INTEGER: 
CONST ERR = 9.41; 
VAR VALUE: INTEGER: 
SEGIN 
IF (OX < (@4ERR)) AND (DX > (A-ERR)) THEN SEGIN 
TE (DY ¢ (ERR) AND (DY > (Q-ERR)) THEN CESREES := 9: 
IF OY > @ THEN DEGREES := 180; 
TF OY € @ TKEN DESREES := 348: 
EXIT(DESREES? : 
END: 
iF (DY ¢ (S#ERRD) AND (OY > (8-2RR)) TREN SEGIN 
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IF OX > 9 THEN DEGREES := 278: 
IF OX < 4 THEN CEGREES := a9 
EXIT (DEGREES) § 
END; 
VALUE := ROUNDCSS@ / PI £ ATAN (DX/DY)); 
IF ABS (VALUE) (> VALUE THEN SESIN 
IF OX <¢ 4 THEN OEGREES:= 128 + VALUE: 
IF OX > 2 THEN CEGREES:= 368 + VALUE; 
=ND 
ELSe EESIN 
TP OX > 3 THEN OEGREES:= 168 + VALUE: 
IF OX ¢ 8 THEN DEGREES:= VALLE: 
END: 
END; 
PROCEDURE TYPE!; 
SEGIN 
TOT is=ORDCTARGET 1) - 02D(°9%); 
TOT Ys=TGTi + {3 
X@1:=OLOEXY(1 TST 12; 
YOi:sQLOSXY (2, TOT 133 
ALi=BXYO1,TGT 1]: 
Yuis=exY{2 7674): 
OXi:= X81 - X13 
DYis= YB1 - Y1i: 
END; 


7) ti 


PROCEDURE TYPE2: 

SCGIN 
IF TARGET! IN (’a°..°j°3 THEN TOT{S:=ORDCTARGET I) - ORD(‘a’) ELSE 
TGT 1:=0ROCTARGET 1) - ORDC‘A’): 
TOTis=TGT! + 4; 
ABWs=OLOOKY CL, TST 1); 
YO Ls=QLOGY (2 TCT 12 
BeesuAYo1.iGT 1): 
mis :=OXY12, TOnl): ‘ 
Oegs=491 - Xii: 
Orii= YO1 - Yii: 

NO} 


SQOCEDLURE TYPED: 

JESIN 
TGTZ:=GRD(TARGET2) - CRDC‘'9); 
Th} !2:siGiTe + jap 
A82:=OLDEXKY[ 1 GTZ); 
Oz =ULDeK Tl 2 Tat 2): 
X12s2OXY! 1 ,TGT22; 
YiZs=OXV(2,TGT2): 
OX2:= X82 - A123 
DY2:= 482 - 112: 

aos 





PROCEDURE TYPE4; 
SEGIN 


IF TARGET2 IN (’a°..°j°) THEN TGT2:=CRDCTARGET2) - CRD(’a’) = 


TST2:=0RDCTARGETZ) - OROC‘A’); 
TOT2:=76T2 + 13 
AOZ:=0L0OXY (3, TGT2); 
Y82:=OLD0XY 62,7572); 
Xi2:=OXY01, 7672); 
i eamoAt(2,)GT2); 
DX2:= X92 - X12; 
OT é:= (82 - Y123 

ENDs 


PROCEDURE CRAWLINES; 
Ue 11.42, 72,0%, 0% SPOS: REAL; 
SEGIN 
SRAFMODE; TEXT:= FALSE 
PENCCLOR (NONE) ; 
AX 1 s=ROUNDC CX 1 1-XCTR) /SCALED + 148: 
Y712=ROUNDCCY 1 1-YCTR) /SCALED +95; 
MOVETOCKX1,YY2) $ 
PENCOLORCAHITED ; 
AX 1 s=ROUNDCXK 14 (TEUX 1¥2.3/SCALE)) ; 
TT LS=ROUNDCYY 1+ CTEVY 181. 92/STALED) : 
M32 CXX 1-140) XSCALE) +XCTR: 
e001 1~96) SCALE) +YC RRs 
MINETOCKKS 171) 3 
PENCOLORCNONE) ; 
XX22:=RCUND( CK 12-CTR) /SCALED +1483 
YYZ s=ROUND( C7 12-CTR) /SCALE) +98: 
MOVETOCKX2 ,YY2) $ 
PENCOLOR(HHITED 5 
XAZS=ROUND (XX24 (TRUK ZE2.3/SCALE) ) : 
Y¥2:=ROUND (YY 24 (TEVY2E 1. 72/SCALE)? : 
2320 (XK2- 140) SCALED tC TR: 
ee e=( (1 2-96) XSCALE) +YCTR: 
MOVETOCAR2 ,YY2) § 
PENCOLGR(NGNE) : 
Beeet4 1-82) / 2.9: 
Bstiist2) / 1.92: 
BEARING:= CESREES(OX OY) : 
pean 0% OY .2F03) : 
FOR 1:= ! 70 2888 CO SESIN 
rE 
ENO: 
END: 


OROCELURE MESSAGE! 


3eGiN 
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TEXTMODEs TEXTs= TRUE; 
BOTOXY (8,3) sCRTCERASECS) ; 
GOTIXY (9, 5) ; 
ARITELN(’ Not enough data to compute CPA’); 
ARITELN tNRITEUN SWRITELNS 
Meecic”§6=—s PRESS REPURN TO CONTINUE > =’); 
READLN ; 
TPLAGS:=FALSE: 
TPLAGS:= TRUE; 
EXIT (CPA) ; 
END: 


PROCEOURE MESSAGE? ; 
BEGIN 
TEXTMODE: TEXT:= TRUE; 
GOTOXY <8, 8) sCRTCERASEDS) ; 
GOTOXY (8.5) ; 
WRITELN(’ The time to CPA trom ’,TARGETI,’ to ’,cARGET2,’ 15 3 7); 
ARITELN; 
ARITELNC’ ” ROUND (T¥6a) ,“ MINUTES 1) ; 
WRITELN: 
ARITELN(’ The range and bearing from ’, TARGETS,’ to ’ ,TARGET2) ; 
WRITELNC at that time will be: %; 
ARITELN; 
ART TELN( * ROUND(DIST) .“ miles -- bearing ‘SEARING,’ cearees “); 
ARITELNsWRITELN sARITELN: 
ARITELN( ‘ C PRESS RETURN TO CONTINUE > =“); 
READLN 3 
TFLAGS :=FALSE ; 
TFLAG4 :=TRUE: 
END: 


PROCEDURE MESSAGES: 
SEGIN 
TEXTMCDE: TEXT:= TRUE; 
SOTOXY (8 3) sURTCERASEDS) ; 
SOTOY (8,5): 
WRITELNC’ = Target # ’ TARGET,’ and target 4 ’ TARGET ); 
WAITELN: 
ARI TELM(’ have parallel courses with the zame soeed | “); 
ARITELN SHRITEDN sHRITELNS 
ARITELN(/ C PRESS RETURN TO CONTINUE > =”): 
READLN 
PREROS :=FALSE : 
TFLAG4 =7RUES 
EAIT (CPA) ; 
END: 


ceGIN { CPA } 


St 


(35R TURTLEGRAPHICS2? 
C¥$R TRANSCEND) 
C33R THESI SOX) 
IF CRANGEMOVE <= 1 THEN MESSAGE}; 
GRAFMODE; TEXTs=FALSEs 
Breeer=te 5. 9" AY. I’ a’. I)? 
BOXSTRING(3,2.° CPA: LETTER / NUMBER CF IST SHIP 
TARGET 1:=GETCHAR(GKSED s 
IF TORGET] INO‘9’..°9 JTHEN TYPE? ELSE TYPE2: 
OX1:=0X1 / 2.33 
BYTs=0Y! / 1.72; 
COURSE 1:=GEGREES(DX1 DY 1) : 
CUSI:=COURSE! 2 Pf / 128; 
SPEEDCDK1,OY1,SP0)) > 
UX1:=5P01 ¥ SIN(CUS)) ; 
VY1:=5PD1 z COSC(CUS) ; 
PUmoimrNGiS,c, CRA: LETTER / NUMSER DF GND SHIP 
TARGET 2:=GeTCHAR(OKSET) ; 
CLEARBOX 5 
[F TARGET? IN(’@°../°9° THEN TYPES ELSE TYPES: 
DAZ=0X2 / 2.93 
Oies-0Y2 / 1.723 
POURSE2 s=CEGREES(DX2 ,DY2) ; 
US2:=COURSE? 4 Pi / 168; 
SPEEDCOX2 ,DY2 SPD ; 
VAL=SPD2 % SINCCUSZ) ; 
VY2:=SF02 ¥ COS(CUS2) : 
Benen)! - X12) / 2.33 
Oeeii - 132) / 1.92: 
(VK =UX1 - UX2: 
WY =UY1 - UY2; 
DENOM:= SGR(DYX) + SGR(DVY); 
[fF DENOM = @ THEN MESSAGES: 
Ti= -COXEDUX + OYEDVY) / (SGRCDVX) + SER(DVY)): 
foe. 9 THEN T:= 8: 
UPATs= TIME + 7; 
CRAAL INES ; 
MESSAGE: 


MO: 


SEGMENT PROCEDURE MOVEMENT ; 

VAR CH: CHAR: 
X,¥ TYME. TARGET ,MCUS OT: INTESER: 
DIRECTION COURSE, SPEED MSPD: REAL: 
NOTYET TRACE: SCOLEAN; 


PROCEDURE DISPLAY; 
UAR %,Y,d3 INTEGER: 
SEGIN 

INITTURTLE: 
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FOR J:=! TO MAX8LUE CO SEGIN 
X:=ROUND( (BXYE 1, J]-XCTR) /SCALD + 149 
Ys=ROUNDC(EXY[2, J]-YCTR) /SCALED +96; 
MOVETOCA, 1) ; 
DRANBLOCK (SHIPFIG.2,9.8,7 6X57, 18) § 
NIMBER (X,Y 0) § 
Ens 
FOR J:= ! TO MAXORANGE CO SEGIN 
X=ROUNDCCOXY 01, JI-XCTR) /SCALED + 149; 
Ys=ROUNDC COXY£2, J]-YCTR) /SCALE) +985 
MOVETOCX,Y) : 
SRAMBLOCK (SHIPFIS,2.39,0,7,d0A,150)} 
CSMeRKX Yo) § 
END: 
GRAFMQDE; TEXT:=FALSE; 
END: 
PROCEDURE MESSAGE 1; 
SEGIN 
CLEARBOX: 
GOTOXY (8,8); CRTCERASEOS) ; 
GOTOXY (8,6) ; 
ARITELN(’ Not encugh data to comoute course / speed ‘); 
WRITELN:WRITELNSARITELN: 
ARITELN(’ <¢ PRESS RETURN 70 CONTINUE > “); 
TEATMODE: TEXT:=TRUE; 
NOTYET s=TRUE; 
READLN : 
ND; 


PROCEDURE SETTGTs 
VAR TGT: CoAR; 
SESIN 
Mem 96s 7. A oe Uy a se SOS 
COKSTRING(3,2,’ MOVEMENT: “OVE aHICH SHIP S(Ear/A-J) 2“): 
eT =GETCHAR(CKSET) ; 
Beironei (7A’../9’)) OR (Ts IN {’3’..°3°)) FREN GEGIN 
“IE SRANGEMOVE <= 1 THEN MESSAGE:: 
ORANGEMOVE <= [ THEN EXTT(GEITSD ; 
Peeto: iN (2A’..°3’) THEN MTARGET s=ORDCGT) -cRDC A‘) +1 ELSE 
MTORGET s=CRDCTOT ~3RDU' a0 +33 
MMPLAG:=TRUES 
T#LAGE:=FALIE: 
Bx HOVEVENT) : 
END: 
TARGET :=CRD(TGT) - ORD(’9°) + 3; 
END: 
OROCEDURE GETCOURSE ; 
mee CUSLEN CUS: INTEGER: 
SESIN 
CUSLENs=23 


— 
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REFEAT 
EOXSTRING(3,2,° MOVEMENT :ENTER DESIRED COURSE (38-268) 
GETINTEGER(CUS ,CUSLEN) ; 
UNTIL (CUS >= 3) AND (CUS <= 248); 
MCUS:=CUS 
COURSEs=CUS % PI / {88s 
END: 
PROCEDURE GETSPEED: 
VAR SFOLEN,SPO: INTEGER: 
SEGIN 
SPOLEN:=2: 
REPEAT 
SOXSTRING(3,2,’ MOVEMENT: ENTER DESIRED SPEED (8-48) 
GET INTEGER(SFO.SPOLEM) : 
UNTIL (SPO = 8) AND (SPO <= 48); 
MSPD :=SFO; 
SPESD:=SP9: 
cND; 
PROCEDURE GETT IME; 
VAR TIMELEN: INTEGER: 
SEGIN 
TIMELENs=2; 
REPEAT 
BOXSTRING(3,2,’ MOVEMENT: TIME STEP (4-79) IN MINUTES D3 
GET INTEGER (TYME , FIMELEN) ; 
UNTIL (TAME D= 3) AND (TYME <= 99); 
END; 
PROCEDURE TRACEGN: 
VAR TR: CHAR: 
BEGIN 
Weeen s={°Y" ,’y%,/N’ fn) 
SOXSTRING(S,2,’ MOVEMENT: 00 YOU WISH TRACE ON (Y/N)? %); 
TRe=SETCHARCOKSET + (CARC 13) 1): 
IF <TR = “Y°) GR (TR = “y’) THEN TRACE:=fQUE ELSE TRACE:=FALSE: 
cMD s 
OROCEOURE GetX: 
VAR XLEN: INTEGER 
Bit REAL: 


~ 
——— 
2. 


~ 
ee” 
<a 


BOXST RING(3 2, ‘MOVEMENT: CESIRED X-COORDINATE (9-198) 7°) 
GETINTEGERCK ALEND § 
UNTIL (X 2= 9) AND (X © 168); 
poecex ~ 2.93 
Als=({X1-XCTR) /SCALE) + 148; 
Xs=ROUND(X 1) $ 
END: 
PROCEDURE GETY; 
VAR YLEN: INTESER: 
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Bes REAL 
cESIN 
YLENs=35 
REPEAT 
SOXSTRING(3,2, ‘MOVEMENT: DESIRED Y-COORDINATE (8-188)7’); 
GETINTESERC(Y , LEN) ; 
UNTIL (CY d= 3) AND (Y (= 188); 
moe= y <= 1.92: 
Y1:=CC71-YCTR) /SCALED +96: 
Y:=ROUNDCY 1) : 
END; 
PROCEDURE RELDIR: 
VAR DIRLEN.OIR: INTEGER: 
SESIN 
DIRLEN=3 3 
REPEAT 
SOXSTRING(3.2,’ MOVEMENT: DESIRED DIRECTIGN (8-248)? %); 
GET INTEGERCDIR. DIRLEN) ; 
UNTIL (DIR >= 3) AND (DIR <= 348); 
MCUS 20185 
DIRECTIONs= DIR x PY /188; 
END: 
PROCEDURE RELDIST; 
VAR DISTLENOIST: INTEGER: 
XD./D: REAL; 
SeGIN 
DISTLENs=3s 
REPEAT 
BOXSTRING(3.2, ‘MOVEMENT :DESISED DISTANCE (3-288) MILES’); 
SET INTEGER( DIST DISTLEN) : 
UNTIL (DIST >= 3) SND (DIST <= 288); 
IF DELTAT = 8 THEN O7:=68 ELSE OT:=DELTAT: 
MSPD s=CSPOL TARGET j ; 
ADs= DIST % SINCDIRECTIWN) ; 
ADs= XD ~ 2.98 / STALE: 
X:= ROUNDCAD) : 
YD:= DIST % COSCDIRECTION); 
fbe= tok 1.92 / SCALE; 
¥3= ROUNDCYD) ; 


PROCEDURE DRARFIC; 


PENCOLOR(NONED ; 
ORANBLOCK (SHIPFIG.2,3,3.7.9,4.7 528) § 
NUMSER (KY, TARGET) : 
an: 
PROCEDURE MAKECHNG(C : INTEGER:S : SEAL); 
VAR i: iNTEGER: 
SNS: CHAR: 
SEGIN 
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eee 1 ape, Nn’): 
FOR T:=1 70 2d9@ 0: 
TEXTMODE; TEXT :=TRUE: 
GOTOXY (4,9); CRTCERASEDS) ; 
TOXY (8,3) 3 
WRITELN(’ YOU HAVE PROPOSED A COURSE & SPEED CHANGE FOR TARGETS ’ ,TARGET-!) ; 
ARITELN: 
WRITELNC/ 1C,’ DEGREES ©’ ,ROUND(S),’ KNOTS “); 
WRITEUNS 
ART TELNC/ DO YOU WISH TO MAKE THIS CHANGE TO THE DATABASE ? CY/N) %); 
ANS :=GETCHAR(CKSET + [CHR(13)]): 
IF ANS IN [°Y",’y’) THEN SEGIN 
GCUS( TARGET] s=CXPI/ 163; 
GSPOLTARGET]:=S; 
cND; 
=ND; 


PROCEDURE MOVE1; 
VAR AD, /D: REAL; 
31,32: INTEGER; 
SEGIN 
GRAFMODE; TEXT:= FALSE; 
GETTST; 
[F NOTYET THEN BEGIN 
NOTYET s=FALSE 
SXTT(MOVE 1) 5 
END; 
GETCOURSE; 
ehereceD: 
RETT IME: 
TRACEON: 
CLEARBOX 
PENCOLCR (NONE) ; 
SPs=NOUNDE (BXYE 1 TARGET 1-XCTR) /SCALE) + 148; 
322=ROUND( (BXY(2, TARGET I-Y4CTR) / SCALED +76; 
MOVETS(B1 52) 5 
{ go math to get new xy } 
IF TRACE THEN FENCOLOR(NHITE) ; 
DOteeerceD / 68 % TYME % SINCCOURSE) / SCALE £ 2.8; 
A:= SGUNDCXD) : 
AL=X+Bi 
epee ones) / 68 < TYME % COS(COURSE) / SCALE & 1.92: 
f2= RQUNDCYD) ; 


12274823 

MOVETO(X,Y) : 

DRAMF IG; 

MAKECHENGIMCUS SPD) 
END: 


Biccevene MUVED: 


OO 
On 





VAR 31,32: INTEGER; 
OX, DY: REAL: 
SECIN 
GRAFMCDE; TEXT:=FALSE: 
CETTOT: 
IF NOTYET TEEN SEGIN 
NOTYET :=FALSE ; 
EXIT CMOVED) ; 
E's 
CoA: 
Geny : 
TRACEON: 
CLEAREOX ; 
PENCOLOR (NONE) ; 
31:=ROUND( CEXYE 1, TARGET) -XCTR) / SCALE) + 148; 
82 s=ROUND( CEXYE 2, TARGET I-YCTR) /SCALED +96: 
MOVETO(31,82) 
IF TRACE TREN PENCOLORCHHITED ; 
MOVETO(X,Y) } 
CRANF iG: 
END s 


PROCECURE MOVES: 
VAR 81,52: INTEGER: 
SEGIN 
GRAFMODE; TEXT:=FALSE: 
GETTGTs 
IF NOTYET THEN BEGIN 
NOTYET s=FALSE; 
EXIT (MOVES) $ 
END: 
RELDIR: 
RELDIST ; 
TAACEGN: 
PLESRSOX : 
PENCOLOR(NCNE) ; 
BL :=RCUND( CSXYE 1, TARGET I-XCTR) /SEALS) + 148: 
B2:=ROUND ((SAYE2 TARGET J-YCTR) /SCALED +943 
MOVETO(S1.22) ; 
Te TRACE THEN PENCOLOR(WHITE) ; 
As=atSl: 
¥:=Y+62: 
MOVETOCXY> 3 
ORAKF IG: 
MAKECHNGNCUS MSPD) ; 
EN): 


PROCCDURE SESETLAGS: 
cEGIN 
NOTYET :=FALCE: 


Oo 
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MMPLAG:=FALSE: 
TFLAG i :=FALSE; 
TFLAGZ:= TRUE: 
IF GRAFFLAG THEN 
SESIN 
GRAFMCDE ; 
GRAFFLAG :=FALSE; 
TEXT :=FALSE s 
END 
ELSE EEGIN 
TEATMODE : 
TEXTs=TRUE: 
END: 
END; 


EEGIN { movement } 
(3$R TURTLSGRAPHICS®) 
(3$R THESISOX) 
(X3R TRANSCENDE) 
KecolrnGo; 
REPEAT 
Peden A 4. 0 5 a oe oy 8 O° i8 
GOTOXY (8,2) s CRICERASEOS) : 
PROMPTAT(@,’> MOVEMENT: Visually check possible sositions of your shios‘); 
GOTOXY(9,5): 
ARITELN(’ §&) Movement using Course, Speed, Time ’); 
WRITELN(’ 3) Move your unit to a new (X,Y) position ’): 
WRITELN(’ C) Move your unit relative to its oresent sosition ’); 
ARITELN(’ 9) Clear previous novements trom the screen *); 
WRITELN(’ @) Quit - Exrt ¢rom this procadure ‘3; 
ARITELN: 
WRITELNC’ [¢-]  Dawnscale display ‘); 
ARITELN(’ [-)] Upscale display “): 
ARITELN( ’f2pace] Recenters display ‘); 
ARITELN(’ [ESC] Foagles dicolay between text ang araphics ‘); 
CHs=SETCHARCOKSET?+ (CHR(Z7) CAR(S) .CHR(21) .CHR(32) J) : 
CRICERASECS) ; 
IF CH=CHR(S) THEN CH:=/R’:) ( left arrow > reduce scale } 
TF CHECHR(2i) THEN CH:=/I’;  ¢ right arrow > increase scale } 
TF (CH=CER(27)) AND (TEXT) TREN ZEGIN 
GRAPMOCE ; 
TEXT s=FALSE: 
Bas=' 2’: 
END 
ELSE IF (CHECHR(27)) AND (NOT TEXT) THEN SEGIN 
TEXTHOCE : 
TEXT :=TRUE; 
ease’ 2"s 
END; 
CASE CH OF 
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ey ie 
25°. b’ see: 
aL CPOs: 
od’ samO [SPLAY 
os : BEGIN 
OOGANSCALE 
BLFLAG:=TRUE 
TFLAG!:=TRUE; 
TFLAG2:=FALSE: 
EXIT (MOVEMENT) ; 
END: 
oe : BEGIN 
UPSCALE ; 
SLFLAGS=TRUES$ 
TFLAG 1 :=fRUE; 
TFLAG2:=FALSE; 
EXTT (MOVEMENT) 5 
END: 
a : SEGIN 
RCTRFLAG s=TRUEs 
SLFLAG:=TRUE ; 
TFLAG]:=TRUE: 
TFLAGZ:=FALSE § 
EX TT (MOVEMENT) ; 
“ND; 
EMD: 
aiewecn iN f ‘Q’,‘a’ Js 
eNOS 


SEGMENT PROCEDURE MOVE2: 

Weems i Al.) 2 DISTANCE cPEeD CUS DX, OY: REAL: 
COURSE 001,002. TYME: INTESERs 
TRACE: SCOLSAN: 
RX 11: REAL; 


PROCEDURE DISTSPOCDK UY: SEAL:VAR OIST.SPD: REAL) ; 
SEGIN 
wale SORT (SERCDX) + SGRCDY)): 
SPO:= DIST / GELTAT; 
D: 


3 


FUNCTIGN CEGREES(OX, OY: REAL? : INTEGERS 
= 4.41; 


CONST ERR 
AR VALUE: INTEGER: 
ZEGSIN 


[F (OX ¢ CQtERR)) AND (DX > (Q-EER)) THEN BESIM 


LF (DY < CO+ERR)) AND (OY > (a-ERR)) THEN DEGREES := 2: 


iP OY > 9 THEN DEGREES := {89: 
WeeoY < 4 SFEN DEGRESS := 248: 
EXITTCDEGREES) s 


SS 





END; 
Ir (DY ¢ (84ERRD) AND (DY > (9-£RR)) THEN PEGIN 
IF OX > 3 THEN GEGREES := 279; 
iF OX < 3 THEN DEGREES := 998; 
CAIT(DEGREES) $ 
“ND; 
VALUE := ROUNDC18@ / PI % ATAN (OX/DY)): 
TF ABS (VALUED <> VALUE THEN SEGIN 
IF OX < @ THEN CEGREES:= 18 + VALUE: 
TS OX > @ THEN CEGREES:= 348 + UWALUE: 


BESE FEGIN 
iF OX > @ THEN OEGREES:= 183 + VALUE; 
TF OX ¢ 8 TEEN DEGREES:= VALUE; 


PROCEDURE GETTIME; 
VOR TIMELEN: INTEGER: 
SEGIN 
TIMELEN:=2: 
REFEAT 
BOXSTRING(3,2,’MOVEMENT2: TIME STEP (8-99) IN MINUTES’); 
GETINTESER( TYME ,TENELEN) : 
UNTIL (TYME = 8) AND (TYME <= 99): 
END: 


PROCEDURE TRACCON: 
VAR TR: CHAR: 
BEGIN 
ee = °Y" ,’y" N/a’): 
SOXSTRING(3,2,MGVEMENT2: D0 YCU WANT TRACE GN LYN)? 
TRe=Ge TCHAR(CKSET + CHRC IS) 1): 
[F CTR = “Y’) OR CPR =’y") THEN TRACE:=7RUE ELSE TRACE:=FALSE; 
END: 


PROCEDURE NEAFOSIT: 

WAR MEM NEWY: REAL; 

3E5IN 
ARS=COAYE 1 TARGET ]~XETR)  SCALZ+ 148: 
TY s=COXYTS MTARGET 5 ~YCT 9) “SCALE 76 § 
Mme AX + CEPEED ¢ TIME = SIN(CUS) 4 2.3 / SCAL); 
iirs= (Y & (SPEED % TYME & COSC(CUS) ¥ 1.92 / SCALE); 
001 :=RCUND (NEWX) ; 
G02 s=ROUND(NEAY) 5 

=NDs 


PRECESURE MOVEIT; 


SEGIN 
GRAFMGOE; TEXT :=rAlses 


v8, 





CLEARSOX ; 
PENCGLCGRINONED : 
MOVETOCROUND OX .ROUNDCYY)) 3 
IF TRACE THEN PENCOLOR(AHITED : 
MOVETOCOO1 202) ; 
PENCCLORCNONED 3 
DRANBLOCK (SHIPFIG,2.8,8,7,8,001,002,5) : 
LETTER(CO1 002, MTARGET) ; 
END 5 


SeGIN £ movez } 

(2$R TURTLEGRAPHICS2) 

(¥$R THESIS9¥) 

(23K TRANSCEND?) 
GRAFMODE; TEXT:=FALSE; 
MHFLAG:=FALSE; 
TFLAG1:=T RUE; 
Xi:=OLDOXY! | TARGET: 
Yi:=OLCOXY[ 2 ,MTARGET) ; 
AZ:=0KY0 1 ATARGET I 5 
Y22=0K702 MTARGET I 
OX:=(X1 - X2) / 2.33 
Pira=iy) = 12) / 1.92: 
COURSE :=DESREES (OX ,DY) ; 
CuS:= COURSE ¥ PI / 188; 
OLSTSPD(DX DY ,DI STANCE , SPEED) | 
GETTIME: 
TRACEGN: 
NENPOSITs 
MOVEITs 

END: { movez } 

SEGHENT FROCEDURE RECENTER: 


PROCEDURE RCTRPART ; 
CONST xC={4@: 
YC=F5s 
VAR J.SX,3Y,GX,0¥: INTEGER: 
QCENTR: CHAR: 


Jr=GRD(RCENTR) -ORD (97) ; 

Jrajtis 

BX :=ROUND(( BXYT 1. J1-40) /SCALED +4C5 
BY s=ROUND( (EXY(2.GI-YC) /SCALE) +YCs 
ACTR2=ROUNDCEXYE {J1); 
YOTR=ROUNDCEXYE 2,02) 


01 


SEGIN 

IF ROENTR IN [‘A’..°3°) THEN J:=URDCRCENTR) -ORD(‘A’) 
ELSE Js=CRDCRCENTR) -O8D(/a‘) ; 
Jisutl; 
DX s=ROUND CC CXY0 1 J) -X0) /SCALED 4X0; 
OY s=RGUND CCOXY (2, J]-YC) /SCALE) +YC; 
ACTR=ROUND (OXY 1,31) 

YCTRs=ROINDCOXYI2,J)) 


8 


3 


SEGIN { recenter } 
(2$R THESIS9¥) 
(Z$R TURTLEGRAPHICSS) 

RCTRFLAG s=FALSE; 

BLFLAG:=TRLE: 

SPAFMODE: TEXT:=FALSE; 

TE (MAXCRANGE > 93) AND (MAXELUE > 8) THEN SESIN 
GET GG: Sod aa Oe i 
SOXSTRING(2,2,° SECENTER GN WHICH SHIP (9-3/A-J)? 9): 
RCENTR=GETCHARCOKSET) : 

IF RCENTR IN (°8’..°9°] THEN CASeA ELSE CASEB; 

SO § 

TF (MAXBLUE = 8) TEEN 

EEGIN 
oni :-(@’..’7"); 

SOXSTRING(3,2, RECENTER ON RHICH SHIP (8-9) ? OR 
RCENTR=GETCHARCOKSET) : 

SND; 

iF (HAXCRANGE = 3) THEN 

SEGIN 
rge) :=19’..'97): 

EUXSTRING(3,2,’ RECENTER ON AHICH SHIP (9-9)? a 
ACENTR =GET CHERCOKSET) 5 
CASES: 
cND: 
INIVTURTLE: 
TF MAXBLUE > @ THEN SESIN 
FOR J:=1 7) MAXBLUE 90 SEGIN 
SK =RGUNO( CEKYE 1 VI -4TTR) SCALED +XCs 
SY s=ROUND( (BX7(2,J]-1CTR) /SCALED tC; 
CRAWBLOCK (SHIPFIG.2,9,8.7,3,0X,5¥. 14): 
NUMBER (SX SY.) 

END: 

eND; 

IF MAXGRANGE > 4 THEN SEGIN 
FOR J:=i TO MAXCRANGE D0 SEGIN 

OX s=ROUNDC COX £1, GI -XCTR) /SCALED 4X0; 
DY s=0GUN0( (CAYO 2. JI-YCTR) /SCALED +703 
GREVIBLSCK (SHIPFIG.2,4,.8.7,3,0X,07.0) 3 


ae 


LETTERCOX , CY ,w) 
END: 
END: 


END: 


PROCEDURE SERUNFART ; 
VAR J: INTEGER; 
TESTUALUE: REAL; 


PROCEDURE STARTCRANGE ; 
SEGIN 
gtely 
TESTVALUE 328 § 
RESET(CGRNHIST, ‘#4:GRNGCLD.OATA’) : 
WHILE (NOT COFCORNHIST)) AND {TESTVALLE > -999) AND (J (= 18) 00 SEGIN 
OXY{$,u] s=CRNHIST* 
BE? (ORNHIST) : 
OXY¥(2,d] :=O8NHIST*: 
JisJtls 
GETCCRNHIST : 
TESTVALUE :=ORNHIST* : 
MAXSRANGE:=J ~ {3 
ND; 
END: 


PROCEDURE STARTSLUE : 
SEGSIN 
J:=i: 
TESTVALUE :=4: 
SESET(SLUHIST, ‘S4:SLUEOLD CATA’) : 
WHILE (NOT =CFCBLUHIST)) AND CTESTVALLE > -799) AND CJ <= 19) 20 SESIN 
OXYC{.J5:=BLUHIST*: 
GETCSLUHIS?) : 
BAY (2, J} s=BLUHIST* 
Jizutt: 
BET CSLUHIST ; 
TESTVALUE s=8LUHIST*; 


CONTINUE :=FALSE: 
DECALLED:=FALSE: 
CASE 1:=FALSE: 
TFLAG LI=FALSE : 
TFLAG2Z :=FOLSE; 
TFLAGZ:=FALSE: 


Tr Agsk —_—- = 
"FLAGS s=FALse: 
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TFLAGS:=FALSE ; 

TELSGS:=FALSEs 

TEXT s=TRUE: 
END; 


BEGIN { RERUN 3 
TESTVALUE 2-83 
SRFLAG=TRUE; 
RESETFLAGS : 
CONT INE s=TRUE : 
SLFLAG:=TRUE : 
MAXCRANGE :=9 
GRANGEMOVE :=8 3 
BLUEMOVE :=8 
SCALE :=13 
INITTURTLE: TEXTMCOE; 
CLOSE(SLUNIST ,LOCX) ; 
CLOSE (CRNHIST LOCH) ; 
STARTORANGE : 
ORANGEMOVE :=ORANGEMQVE + [: 
STARTBLUE; 
SLUEMOVE s=SLUEMOVE + 1; 
RESETCATIME, “#4: TIME.CATA’) 5 
TIME s=ATIME* 

END: ( rerun } 


SEGIN { CASE } 
TF RCTRELAG THEN RCTRPARTs 
IF CASE] THEN RERUNPART; 
ENO 
SEGMENT PROCEDURE SCTTOMLINE; 
WAR SCOIST: REAL; 
mere 1 CSUINTEGER: 
STIME SXCTR.SYCTR: STRING: 


PROCEDURE HEADER: 

3ESIN 

(¥$R TURTLEGRAPHICS¥) 
SRAPMODE: TEMTISFALE: 
SLFLAG:=FALSE: 
GRAFFLAG:=TRUE: 
PENCOLOR(MONE) : 
MOVETO(3, 124) ; 
WSTRING(/ oF 
MOVETOCO 194) ; 
ZENCOLORCAHITED 3 
MOVETOCR, 198) : 
MOVETO( , {97) : 
SCDIST:= 19/SCALEX2.72; 


SO 
Se 





XT s=ROLND(SCOIST ; 
MOVETOCKT , 187) s 
MOVETOCKT , 198) 5 
MOVETOCKT , 184) : 
PENCOLOR(NONED ; 
MOVETOCKXT+?, 192) : 
NSTRING(’: 18 3M 4); 
XC:=ROUNDCXCTR/ 2.3) : 
{Cs=ROLNDCYCTR/ 1.722 : 
STRCAC SXCTR) ; 
on¢ ys, SyYCi8) s 
SSTRING(SXCTR) sHSTRING(’ ,°) SHSTRINGCSYCTR 5 
ASTRING(’: CTR 7): 
MSIRING(’ TIME: %): 
STR(TIME .STIMED s 
WSTRING(STIME) ; 

END ; 


PROCEDURE iNTERCEPT: 
VAR 1GT,7572,CUS1,0T OTLEN, ICUS: INTEGER; 
Pic: CHARS 
Poumoc 1, SPEEDT VX1 VV X,Y IX TY, OIX DIY ISPO.OX) OVI 42, ¥2s REAL; 
PROCEDURE TYPEL(T: CHAR: VAR OX,0Y: NEAL) ; 
VAR Xi, Yl: REALS; 
EEGIN 
TST s=GRO(T) -GRD( 437) +15 
Xi s=OLDBXY( 1, 16T2/2.3; 
Yi:=OLCRXY(2 TGTI/1.725 
nese 1 1673/28: 
teen ti 2.1613/1.72: 
OX3=(X1-X2) : 
DY :=(Y 1-72) s 
END: 
PROCEDURE TYPEZ(T: CHAR: VAR OX,0Y: ZEAL); 
Vere Ais REAL: 
SEGIN 
Woeerert a.” }°UOTHEN 1GTs=0RD(T)-ORD( 3) +! ZLSE TGT:=CROCT) -ORDC‘A%) +1; 
NissOQLDGAYT 1 TGTI/2.83 
TUs=OLOOK1(2 7STI/ 1.723 
ereeAt( 1 ,:671/2.33 
W2320XV(2 ,TOTI/ 1.723 
Bxt=(Xi-A2) : 
Or2=@/i-12): 
ENG: 


FUNCTION DEGREES(OX,OY: REALD : INTEGER: 
CONST ERR = 3.31; 
WAR VALUE: INTEGER: 
SEGIN 
IF (DX ¢ (@+ERR)) AND (DX > (8-ERRD) THEN 2EGIN 


ue: 





iP (DY < (B+ERRD) AND (OY > CO-fkR)) THEN DEGREES := 93 
TF OY > 9 THEN CEGREES := 158: 
IF OY < 3 THEN DEGREES s= 368; 
EXIT (DEGREES) : 
END; 
IF (DY ¢ (3+ERRD) AND (DY > (@-ERRD) THEN 2EGIN 
iF OX > @ THEN DEGREES 2/8; - 
TF DX ¢ 8 THEN CEGREES := 898; 
EXIT(DEGREES) ; 
END: 
UALUE s= RQUNDC1G8 / PI ¥ ATAN (OX/01D): 
[F ABS <VALUE) <> VALUE TKEN 3ESIN 
SF OX < 9 THEN DESREES:= 168 + VALUE: 
Iz DX > @ THEN OEGRESS:= 348 + VALUE; 


"au 


Se SEGIN 
IF OX > 3 THEN DEGREES:= {88 + VALUE: 
4 DX < 9 THEN OEGREES:= VALUE: 


PROCEDURE MESSAGE ; 
BEGIN 
GOTGKY (9d) sCRTCERASEOS) ; 
GOTOXY (8,3) : 
TEXTMOSEs TEXTs=TRUE: 
WRITELNC(’ NOT ENOUGH DATA TO COMPUTE INTERCEPTS AT THIS TIME %): 
MRITCLN: 
ARTTELN( € PRESS SETURN 7S CONTINUE 97): QEADLN: 
EXT TCBOTTOMLINED ¢ 
END; 


PROCEDURE MESSAGEZ: 
SEGIN 
GOT OXY (3 8) sCRTCERASEDS) : 
GOTOXY 43.3) 
~ See TEXT :=TRUE; 
MRITELN(’ UNTERCEPT: THE COURSE AND SPEED REQUIRED FOR UNITS ‘ 72); 


oat To Nvexeae ® UNITS IT!.° iS: %): 

ARITELN: 

ARITTELNC (, (CUS, S0EGgees AT ° S0EN0C1SPD) .” xNOTS 

ARITELN: 

ARITELN(/ DO YOU WANT TO MAKE THIS CHANGE TO THE DATABASE? (Y/N) ‘); 


Geel 1 Sy, /N’ ,‘n'): 

TL:=GETCHARCCXSET + COAR( 12) 2): 

iF ii IN [’Y’,‘v’) THEN 2€GIN 
SCUSITGT 2) s={CUSEPI/ 189: 
Sort TGT2) :=[SP0; 
WRITELNC/ CAANGE HAS EEN MADE |: 
ARITELNs 


96 





ARITELNC ’ { PRESS RETURN 70 CONTINUE > %) ;READLN: 
ND: 
END$ 


FEISIN 
(Z$R THESISOX) 
(¥$R TRANSCEND) 
(2$R TURTLEGRAPHICSS) 
ICPTFLAG:=FALSEs 
BLFLAG:=FALSEs 
i= (BLUEMOVE <= 1) OR (TIME = 2) THEN MESSAGE; 
GRAFMODE: TEXT :=FSLSE; 
SEU ae > a a 
OTLEN:=33 
SOXSTRING(3,2,ICPT:LETTER/NUMBER OF UNIT TO INTERCEPT’); 
is=GETCHARCCKSED s 
Pei coor... 7) TREN TYPEICT!,0X1,0V1) ELSE TYPE2(T1,DX1,DY); 
CUS 1 s=DEGREES(DX1 DY 1) ; 
COURSE 1:=CUS1 £ PI / 168; 
SPEED 1:=SURT (SQR(DX 1) +SGRCDY 1) /CELTAT s 
UX 1s=SPCED IXSINCCOURSE !) ; 
VY 1:=5PSED 1XCOS (COURSE }) ; 
Ongar :=1°3°..°9'); 
BOXSTRING(3.2,’ ICPT:NUMBER OF MANEUVERING UNIT (3-7) 7): 
T2:=GETCHARCOKSET) ¢ 
791 22=0RD(7 2) -ORD( 8’ 415 
X:=8X701,1GTZ)/Z.3: 
Ys=6XY(2,1GT23/1.923 
REPEST 
BOXSTRING(S,2,/1CPT: CESTRED TINE 79 INTERCEPT (3-999) ’): 
GET INTEGERCOT ,OTLEN) ; 
UNTIL(DT = 3) AND (DT <= 999); 
Ce EERECX § 
LASS IEDT) 4423 
Ty s=tVY 1207) +¥23 
DIXs=X-IXs 
py s=1-1Y 3 
[UE =0EGREES(DIX,DIY) ; 
[SPO s=SGRT (SGR(DEX) +SGR(D1%)) /DTEE9: 
MESSAGES: 
END: 


BEGIN ( bline } 
IF [CPTFLAG THEN INTERCEPT: 
IF BLFLAG THEN HEADER; 
SND: 
SEGMENT PROCESURE TMGFINIT: 
VAR GFLAG,SFLAGI: CHAR; 
LEVELS: SETCFCHAR: 
SAVEFLAG: BOOLEANS 


oe 





ENCA,30LD ONG, UOLD: File OF REAL; 
MISC: FILE OF INTECER; 


PROCEDURE PREF INISH: 
BEGIN 
Breer =i °%" , oy! SN’ 0s 
GOTOXY (dd) sCRTCERASECS) 5 
WRITELNS 
ARITELN(’ MEMORY AVAILABLE IN NGRDS: ° MEMAVAILD ; 
WRITELN: 
ARITELN(’ MOTIGN ANALYSIS PROGRAM OPTICNS : “): 
ARI TELN 
ARITELNC’ DO YOU WISH TO CONTINUE THIS SAME LATER (YN? 9; 
ARITELNSWRITELNS 
WRITE(’ ‘);  GFLAGI:=GETCHARCOXSET+{CHR( 13) 1); 
CRTCERASEDS) s CRICERASECS) : 
[fF SPLAG] IN (°Y',‘y%) THEN SAVEFLAG:=TRUE ELSE SAVEFLAG:=PALSE: 
END: { PREFINISH } 


PROCEDURE START; 

SESIN 
GOTOXY (3,8) sCRTCCRASECS) ; 
WRITELNS 
WRITELN(’ MEMORY AVAILABLE IN WORDS: * MEMAUATLD 3 
ARITELNS 
ARITELN(’ MOTIGN ANALYSIS PROGRAM OPTIONS : °); 
WRITELN(’ %); 
ARITELN(’ 3 Motion Analysis Proaram’); 
WRITELN(’ { Rerun Motion Analysis rrogram’): 
ARITELN(’ 2 Suild or Modify Data 8ase’); 
WRITELN(’ 3° Terminate "rcaram’); 
ARITELN: 
ARITEC’ “D5  SPLAG:=GETCHAR(LEVEL®) ; 
CRICERASEGS) ¢ CRT CERASE OS) 

END; € START } 


PROCEDURE SAVIT;: 
JAR fu: INTEGER: 
SEGIN 
REARITECSNOR, “45:0L21.0ATA’) ; 
FOR J:=1 TO MAXBLLE 80 SEGIN 
ENCW* :=8XY01,J33 PUTCENGAD ; 
ENOW* :=BXYT2 gd]; PUTS ENON) ; 
SNOW* s=GCUS{ 3s PUT CEN : 
SNGH* :=SSPOCJ]; PUTSBNGW) : 
CMD: 
CLOSE (ENOW LOCH) : 
REWRITE( BOLD, 9530192. : 
FOR J:=1 TO MAXBLUE DO BEGIN 
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BOLD* :=OLDEXY£ 1.033 PUTCBCLD) ; 
BOLD* :=OLOSKV 02,33: PUTCEOLD) ; 

END; 

CLOSE (EOLD LOCK) ; 

REWRITECCNOA, ‘45:0L93.DATA) ; 

FOR J:=1 TC MAXTRANGE D0 SEGIN 
ONOW* :=OXY01,d]; PUTCONGAD ; 
ONON* :=OXY(2,d)3 PUT CONG) ; 

END s 

Ci.OSE «ONC, LOCK) ; 

REWRITECOCLD, “45:0LD4 CATA’) ; 

SOR J:=! TO MAXCRANGE 20 BEGIN 
COL O* s=5L! DOAY (1.0); PUT (COLD) : 
DOLD* :=OL90XY(2 0) 3 FUTCCOLD) ; 

eNDs 

CLOSE (COLD LOCK) ; 

REWRITECMISC, ‘45:0L95.0ATA’) ; 

pec :=TIKEs PUTC(MISC) ; 

MISC* s=BLUENOVE ; PUT(MESC) : 

MESC* :=QRANGENOVE : PUT (MISC) : 

CLOSE (MISC LOCK) : 


END: 


SEGIN ( TMAFINIT } 
CLOSECSLUHI ST LOCK) ; 
CLOSE (ELUGAME LOCK) : 

CLOSE (CRNHIST LOCK) ; 
CLOSE ( CRNGAME ,LOCK) ; 
CLOSE CATIME LOCK) : 
Gveue.| 9’, 1° ,°2°,'3'33 
SUITFLAS :=PALSEs 
RRFLAG:=FALSE; 
START: 
CASE SFLAG OF 
"A : TAECII= 
ioe: CASE! := me: 
me 3 CASE2: =TRUE: 
eM: € LASE 3} 
he Gr = _ TREN SESIN 


iF WER a3 TEEN AVIT: 
STOPELAG :=TRUE: 
OND: 
SND: ( TMAFINIT 3 


(%$$+%) 
INIT SETCRT; INTRINSIC CODE 23 CATA 24; 


INTERFACE 
TYPE CRICGMMAND=(ERASCUS -CRASEOL UP. OGAN RIGHT LEFT LEADIN) ; 





SETOFCHARSSET OF CHAR: 


VAR CRTINFO: 
PREF TAED: 
PePILeS 

PROCEDURE GETCRT INFO; 
PROCEDURE CRICC : 
PROCEDURE PROMPTAT(Y: 


PACKED ARRAYICRTCOMMANDS CF CHAR; 
ARRAY CRTCOMMAND] CF SODLEAN; 


CRTCOMMEND) ; 
INTESEN: 
PINCTION SeTCheR(OKSET: SETOFCHAR) 


: STRING) ; 
CHAR 


PROCEDURE GETSTRING(VAR S: STRING; MAXLEN: INTEGER) ; 


PROCEDURE GETINTEGER (VAR NUMER,LEN : 


IMPLEMENTATION 
CONST 


CR = 3 
BUFFER: 
i,eYiE: INTEGER: 
CH: ChAR; 

50GD: SOQULEAN; 
Si:STRING( 33s 
STEMP: STRING(ES): 
FASITION: INTEGER: 
CHARRAY: ARRAY(!.. 
READINTESER: INTEGER: 


"PACKED ARRAYS. O11 


INTEGER) ; 


CF CHAR: 


1@] OF CHAR; 


DiGTTS,OKSET: SET GF CHAR; 


QLENER: INTECER: 
DLO: SOOLEAN: 
PROCEDURE GETCRTINFO: 
{ 
if 
SE5IN 
i (Fe, “RSYSTEM MISCINGO’): 


=SLOCKRESOCF SUFFER, i): 

COE 

=ORD(GUFFERI 722) f 
car 
CAPINFOL ERASECS? r=HUFFEAL 415 
CRT INFOLESASESL] s=QUFFER TSS): 
CAT INPOURIGHT 3 s=BUFFERE Sd]: 
CREINFOCUP] s=GUFFERL S71; 
ORT INFG(LEPT J s=BUFFER(68): 
CRT INFOLOOGAN s=ChRC 12) : 

=ND: 


PRUCEDURE CRT; 


oe 


READ SYSTEM .MISCINEO AND CET CRT CONTROL CRARACTER [NFR 


'NFORMATICN 2YTE 3 
FOES IXED(LEADING s=FALSE : 
PREF LAEDLERASEDS) s=OD0(SYTE DIV 3); 
PRES TXEDLERASEOL] s=ODD(BYTE DIV 4); 
PREFIXEDL RIGHT} s=ODD(BYTE DIV 2); 
PREFIXEDLUP? s=000(BYTE : 
PREFIXEDILEFT 3 =QDD(BYTE OV 32); 
PSEFIXEDL DOWN] :=FSLZE: 


100 





o~ 


{ ORT COMMANDS ARE : ZRASEOS SRASEOL UP, 2OAN RIGHT LEFT. 
{ 
PEGIN 
IF PREFIXEDIC] THEN UNITWRITE( 1 ,CRTINFOLLEADIN) 1,8, 12): 
UNITMRITE( 1 ,CRTINFOLC) , 1,2, 12); 


cND : 
PROCEDURE PROMPTAT; 
SEGIN 
GOTOXY (8, Y) sHRITE(S) sCRT(ERASEOL ; 
END: 


FUNCTION GET CHAR; 


( } 
{ GET & CHARACTER, GEEP IF NOT IN GKSET, CKO ONLY IF PRINTING =} 
{ } 
BEGIN 

REPEAT 


READCKEYECARD CH) : 
IF ECLNCKEYSOARD) THEN CHs=CHR( 13) 
GOOD:= CH IN SKSET: 
IF NGT GQQD THEN ARITECCHR(?)) 
ewer .meen IN i’0’..°3’] THEN WRITECCH): 
NTIL GOOD; 
GETCHARS=CHs 
END: 


PROCEGURE GETSTRING; 


(GET AND ECHO 4 STRING UP TO MAXLEN CHARS LONG. } 
© EF NULL STRING EATER ED, OEFAULT AND PRINT PREVICUS VALUE. > 
SEGIN 

Apeei est’ «433; 


VY Gad Gre 
23 
- “oO uw “oO 


QSITION := 1 7G “ARLEN 20 


POR POSITION s= ¢ TQ MAXLEN 50 

ARITECCHRCES) > : 
POSTION :=1 
XEPCAT 

ip LENGTH(STEMP) = 4 THEN Sil ii :=GETCHARCOKSET + fCHR(13) 3) 

else IF LENGTH(STEMP)=MAXLEN TSEN S105] :=GETCHARCICHR( 13) ,CHR(3) 3) 
ELSE SIC L2:=GETCHARCORSET ¢ (CARO 13) CAR(S) 3): 
iF SiC] IN OKSET TREN STEMP:=CONCAT(STEMP 51) 
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ELSE IF Si{iJ=CHRC3) THEN 
SEGIN 
CRT (LED 2 oARITE(’°): CRICLEFT): 
DELETE (STEMP \LENGTH(ST EMP) yes 
OP 
INTIL S421] = CHR(73); 
IF LENGTHCSTEMP) <> 9 THEN S:=STEHP 
ELSE WRITES) ; 
END s 


FPSOCEDURE GeTINTECER: 
SeGIN 
GD s= FALSe: 
OL DNBR s=NiMBR ; 
Oren ro:=(°9.../97); 
FOR FOSITICN s= 1 TO LEN DO 
MRLic (ge): 
FOR POSITION := ! TO LEN 00 
ec 5)? 3 
POSITION : 
AHLLE >gSITION = } 00 
ceGIN 
READ(KEYSOARD ,CHARRAYI POSITION) ; 
Tr(CRARRAY{ 17 IN CCHRCSPACE) ,CRR(CR) J) THEN 
3EGIN 
NUMER := OLDNER; 
ART TE(NUMSR) ; 
CLD := TRUE: 
POSITION := POSITIGN+:: 
“ND 
ese 
TFCCHARRAY{( 1] IN DIGITS) THEN 
EEGIN 
WRITECKETBOARD , CHARRAY SPOSITICN)) : 
ey s=POSITION + is 


0: 
IF NOT OLD THEN 
SEGIN 
WHILE 2OSITIGNC=LEN 00 
SEGIN 
READ(KEYBCARD , CHARRAY (POSITION) ; 
IF (CHARRAYEPOSITION] IN DIGITS) THEN 
BEGIN 
WRITE (CHARRAY (POSITION) : 
SQSITION := SOSITION + 1; 
“HS 
SLSE IS CHARRAYIPOSITION] = CHR(9S) THEN 


RO 





SEGIN 
IF FGSITIGN > 1 THEN 
SESiN 
ARI TECCER( SS) ) 
male )' 
WRITECCERCBS) > ; 
POSITIGN := POSITIGN - 1 
END § 
[F POSITION <= 1 THEN POSITION := f; 
cND 


F (CHARRAYIPOSITICN] IN [CHRCSPACE) ,CYR(CR) 3) THEN 
POSITIGN:=LEN + | 
Buce 
WRITECCHRE 7) ) 
END: ( begin 3 
cND { :t-then-eise } 
END: 
READINTEGER: =8; 
FOR POSITION:={ TO LEN 90 
EEGIN 
TF (CSARRAY(POSITICN] IN DIGITS) THEN 
SEADINTEGER = i3£RESDINTEGER+ORD( CHARRAY[POSITIOND -ORD( 3°) : 
EMD; 
[fF CLD THEN NUMBR:=OLONBR ELSE 
NUMBR :=READ INTEGER: 


ce$at%) 
UNIT THESIS@; INTRINSIC CODE 25 DATA 26; 


INTERFACE 
USES TURTLEGRAPHICS: 


VAR 
GHiresG: PACKED SRRAY(!..3,1..7] OF SO0LESN: 
OXY OXY: PACKED ARRAY({..2.1..:8) CF SEAL; 
Beale REAL: 
MCTR, (CTR MAXELUE MAXDRANGE: [NTEGER; 


OROCEDURE NUMBER(Y.Y,d: INTESER) ; 

PONCEDURE LETTER(X,Y J: INTEGER) ; 

PROCEDURE SOXSTRING(X.Y: INTEGER: 3: STRING): 
SROCEDURE CLEARSOX; 

PROCEDURE DOMISCALE: 

PROCEDURE UPSCALE: 





IMPLEMENTATION 


CONST 
AC = 144; 
{C= 96: 
VAR 


VALUE: IMTESER; 

NUM, AT. YT: INTEGER: 

Vel: CHAR; 

a Bl, os OYJ: INTEGER: 
Nyce] : INTEGER: 


NUM :=J-13 

XT s=X-33 

N(s=¥-33 

MOVETOCXT YT) 3 

VAL S=CBRCNUMFORD(497)) 
ACHAR CAL ; 


cNDs 


PROCEDURE LETTER; 
BEGIN 
NUM:=J—!3 
AT 32X72: 
{TF s2Y-?3 
MOVETOSAT YT) § 
VAL s=CGRCNUMEGRDI AD) s 
ACFARCVAL) 5 
NO: 


QCEDURE SOXSTRING: 

SIN 

PENCOL OR (MONE) sMOVETOCX.Y) | 
= ane =442+7$LENGTH(Q) | 
Beat * = 28 

JIENPORT (1.2.3.7 on 
PiLLSCSEENC SLACK) ; 
JLEAPORT (80279 ,8.591) s 
FEniCGLoR (NONED : MOVETOCL cc) 
PENCULCR(MHITE) : MOVETOCL.D 3 


rR 
== 
st 


MOVETOCR, 1) sSMOVETOCR 2) sMOVETOLL 8) ; 


PENCOLGR(NONE) : MOVETO(L43,9+2) : 
ASTRINGCS) 5 
eNDs 


PROCEDURE CLESRECXs 
SESIN 


t~ 





PENCOL OR (NONE) § 
Lied; B:=4; R: =5 +7 ¥ 48; Toadies 
VIENPORT(L 8,1); 
PEELS SCREEN( BLACK) | ' 
VIEWPORT (9,279.3, 191): 
END: 


PROCEDURE DCNNSCALE ; 
SEGIN 
SCALE:=SCALE / 23 
INITTLRTLEs 
PENCSLOR(NGNE? 5 
IF MAXBLUE > 9 THEN BEGIN 
FOR J:= 1 TO MAXBLUE 00 SEGIN 
BY s=ROUNO( CEXY( 1. JI-KCTR) /SECALS) #XCs 
BY s=ROUNDCCSX7£Z,51-YCTR /STALED +7C3 
ORAWELOCK(SHIPFIS,2,0,48,7.0,8%.BY, 18) 3 
NLMEER (SX SY, J) 3 
chD; 
END; 
[FP MAXSRANGE > 3 THEN 3EGIN 
FUR J:= 1 TO MAXCRANGE CO SEGIN 
OX :=ROUND( COXYE $  SI-XCTR} /SCALED +2C 
OY s=R0UND¢ COXY £2, JI-YCTR)/SCALE) +L; 
DRAABLOCK(SHIPFIG,2,8,8,7,2,0%,07,5) ; 
perpes(OX OY ,J)$ 
END: 
END: 
END: 


PROCEDURE UPSCALZ: 
SESIN 
BURL =OLALE £ 2! 
INTTTURTLE: 
PENCOLCR (NONE) : 
IF MAXELUE > 2 THEN 3ESIN 
FOR J:= 1 TO MAYBLUE 50 SESIN 
ZA S=ROUND( CSXYD 1 UV I-XCTR) /SEALED +xC 
By s=ROUND( (EX¥ 62 .CI-YCTR /SCALSD +40: 
SRAWELOCKCSHIPEIG.2,3,9.7.2,9%,37, 19) 
NUMEER CS SY 7: 
ND} 
aD: 
IF MAXCRANGE > 3 THEN 3ESIN 
POR vs= 1 70 MAXCRANGE O0 SESIN 
OXs=ROUNDCCOXT Lgl. pe 
oY: SROUND((OXYE2.g1-Y py SURLE) + 1G. 
ORAWELSCACSHIPPIG.2.8.3.7.5,0%. OY.3): | 
Bey ven (OX, UY J) 3 
END: 


(Ges. 
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